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ABSTRACT 


aS NE ee 
eh me AP 
See ad ORRING T 


THE RPO4/S/76 TIOR ee “ear: 
Ey RP SINGLE OR br "URL POR D 


HE PROGRAM 
THE PROGRAM AUTLe VEXERCISE A MIXED SYSTEM 
PORT DRIVES. 


OF 
TO_OBTAIN ogi Se ING, OPERATIONS ON 
corre 1e eRe ARE ORMI ING 3E Kea OPE 


TO PERFORM 
TO A MASSBUS 
D_RPOY, RPOS 


YSTEM DATA 
ED. 


ERC LECTED RANDOMLY EXCEPT FOR THE 
R COMRANDS, we WAY TE” CHECK cg NOS NDS ARE USED TO VERIFY 
WRITE OPERATION WHEN A WRITE COMMAND Is SELECTED, 
ITTEN IS VERIFIED BY UF ue APPROPA IATE WRITE CHECK 


PROGRAM/OPERATOR COMMUNICATIONS ARE THROUGH THE KEY BOARD; DYNAMIC 
PROGRAM OPT pore ARE SELECTED BY SWITCH REGISTER SETTINGS. ERRORS 
GRE REPORTED ON THE TELETYPE. 


ALL COMMANDS, DATA PATTERNS, AND DATA BUFFER SIZES ARE SELECTED 
RANDOMLY BY THE PROGRAM. ADDITIONALLY THE ADDRESSES (EG eVLLOER, 
TRACK, AND SECTOR) FOR EACH OPERATION ARE SELECTED RANDOMLY 


RE IUIREMENTS 


SEG 9004 
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2.1 EQUIPMENT 
REQUIRED 
POP-11 PROCESSOR 
TELETYPE (20K IF THE PROGRAM IS INCLUDED IN AN ’XXDP’ CHAIN 
“He aie DEVICE 
W11l-L -P CLOCK 
RAIL OR RH70 WITH 1 RFOY, RPOS, OR RPOG DISK DRIVE 
OPTIONAL 
ROOT TE. MEMORY TO A MAXIMUM OF 28K 
1 TO 7 ADDITIONAL RPO4/S’6’S ON THE SAME RH11 OR RH70 
2.2 MEDIA 
THE RPOY/S/6 MULTIDRIVE PATTERNED SER Eaten ne REQUIRES FORMATTED DISK PACKS 
WHICH CONTAIN RANDOM OR A RECOGNIZED BY THE EXERCISER. 
DISK PACKS USED BY THE A RAY OBE GENERATED BY THE RPO4/S/6 FORMATTER 
PROGRAM CRATROEC?11-DZRIB) “oR THE °W’ COMMAND OF THE RPO4/S/6 MULTIDRIVE 
EXERCISER (SEE SECTION 4.4). _ THE PACKS MUST BE FORMATTED IN 22 
SECTOR (16 BIT) MODE; THE ALTERNATE (20 SECTOR - 18 BIT) MODE IS 
NOT SUPPORTED. 
2.3 PRELIMINARY PROGRAMS 


tu 


w 
- 


RPO4/S 76 OI Ess CONTROLLER TEST 
PART 1 C-11-DZRJG) 
PART 2 (HAINDEC - 11-DZ2RJH) 


RPO4/S/6_ FUNCTIONAL CONTROLLER Test 
PART 1 (MAINDEC-11-DZRJI) 
PART 2 (MAINDEC-11-DZRJJ) 


RPO4/S/6 ot CONTROLLER LOGIC TEST (FOR DUAL PORT DRIVE TESTING) 
1 (MAINDEC-11-O02RJE) 
PART 2 (MAINDEC-11-D2RJF ) 


OPERATING THE PROGRAM 


THE PROGRAM MAY oF SF ROR THE Antal PAPER TAPE USING THE ABSOLUTE LOADER OR 
IT MAY BE _L a Th OPRIATE *XXDP’ MEDIA USING THE ASSOCIATED 
E 1H UDED IN AN ’XXDP’ CHAIN. IF THE 


LOADER. at INCL 

PROGRAM IS A” RUN on ‘a BFROCESSOR wate 16K, THE *XXDP’ LOADER WILL 
NOT BE P THE PROGRAM MUST % 3 NO OK OR 
MORE TO PRESERVE THE "XXDP’ LOADER. THE ABSOLUTE” LOADER WILL BE 
PRESERVED IN A 16K SYSTEM, HOWEVER. 
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THE PROGRAM STARTS AT LOCATION 200(8). PARAMETERS NOT INCLUDED IN 
Te ren DIAGLOGUE GROUP MUST BE CHANGED BEFORE THE PROGRAM 


START THE ae gy AT LOCATION 204(8) IF THE RH11 OR THE RH70 IS 
NOT AT ADDRESS 176700. 


s AND STARTED, OPERATIONS ARE INITIATED AND 
ONTROLLED BBY KE EYBOARD COMMANDS AND SWITCH REGISTER SWITCH SETTINGS. 


IF THIS IS THE PROGRAM’S FIRST START THE STATUS OF THE DRIVES ON 
THE SELECTED MaASSBU SUBSY TEM WILL BE TYPED OUT. ON SUBSEQUENT 
STARTS, THIS TYPEOUT MAY INHIBITED BY SETTING SW<Oe2>. 


PASS/TEST TERMINATION 


A Pass IS BiTE ok Sees BY EIT EITHER BITS READ OR SEEKS PERFORMED. THE 
NUMBER. OF EKS REQUIRED FOR A PASS IS RIVED FROM EITHER 
THE SOF 1 ERROR E SPECIFICATION THE SEEK E RATE SPECIFICATION. 
THE SPECIE 1caT ONS FOR Rep "S. RPOS’S, AND RPO6’S SPECIFY NO MORE 
NON-PACK RELATED) tN 1 X 109 BITS READ OR NO 
Wan | SEEK" OR_IN yi xX 10t6 EKS. THE NUMBER OF BITS OR 
SEEKS. TERMINING A BPRS RE SELEC © PROVIDE A 90% CONFIDENCE 
HAT THE DRIVE IS °ERFORMING TO THE APPLICABLE SPECIFICATION. 


PASS TERMINATION 


END OF PASS MAY BE DETERMINED BY EITHER OF THE FOLLOWING CONDITIONS. 
THE END OF PASS CONDITION D IS DETERMINED BY PARAMETER ’ENDET’. 


A. IF PARAMETER “ENDET” 1s END OF PASS OCCURS WHEN THE DRIVE 
HAS READ 1.875 x 1ote WORDS <3 X 10t9 BITS) 

B. IF PARAMETER ’ENDET’ IS 0 END OF PASS OCCURS WHEN THE DRIVE 

HAS PERFORMED 3 X 10t& SEEKS 

TEST TERMINATION 

THE TEST FOR A DRIVE IS TERMINATED (SW<O4> = 0) WHEN: 

A. THE DRIVE t Has COMPLETED THE NUMBER OF PASSES SPECIFIED IN 

B. CHE TOTAL: E ERRORS TA CUMULATED EXCEED 100. 

C. FATAL ERROR OCCURS: EMl2 OR EM 

RUN TIME 


THE EXERCISER PROGRAM upey n° RUN IN TWO MODES. THE MODE IS 
Se cFon he BY Vedi R 'MAXOL’. IF *MAXDL’ 
5ff e 
HE TRACK I IN SIZE (S730 DE 
AEAVY MODE. THE PROGRAM 
THE OPERATION MODE SELECTE 
READ/WRITE RATIO PARAMETER - 
DATA TRANSFER MODE 


ME VARIE NG 
E_ MEMORY A GATLABLE OVER 16K, THE 
ATIO’, AND BY SWITCHES O, 1, & oe. 
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Rive - APPROXIMATELY 2.5 HRS (TO REACH 1.875 xX 10t8 WORDS) 
8 DRIVES - APPROXIMATELY 11 HRS (FOR ALL DRIVES TO REACH 1.875 X 10t8 WORDS) 


NOTE: Bee D le or buine oe gan ttre THE RUN TIMES 


1 ORIVE - 1.7 HRS (1.875 X 10%8 WORDS READ 
ADD 172 HOUR FOR EACH ADDITIONAL DRIVE TESTED. 


IF THE PROGRAM IS RUN WITH BOTH SW<O0> AND SW<01> 
SET, THE RUN TIMES SHOULD BE ABOUT 20% FASTER. 


NOTE: ON THE FIRST PASS (QUICK VERIFY) THE TIMES ARE 
APPROXIMATELY ONE EIGHTH OF THE ABOVE VALUES. 


SEEK VERIFICATION MODE 
ARAMETER *MAXDL’ = 1 SECTOR, (256 WORDS) 
PARAMETER *MAXTRK’ = ’MINTRK 
PARAMETER *MAXSEC’ = 'MINSEC’ 
SW<OO> = 1 (READ ONLY MODE) 
1 ORive - APPROXIMATELY 25 HRS (3 X 10t& SEEKS) 
8 DRIVES - APPROXIMATELY 40 HRS (3 X 10t& SEEKS FOR ALL DRIVES) 
UNIBUS & VECTOR ADDRESSES 


THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. (REFER 
TO SECTION 4.2.2 FOR THE LOCATIONS AT WHICH TO CHANGE THESE ADDRESSES. } 


a a 
RH11 OR RH70 176700 2s4 
TTY PRINTER 177564 NOT USED 
TTY KEYBOARD 177560 60 
KW1I1L-L 177S46 100 
KW11-P 172542 104 


DUAL PORT OPERATION 
A. Ore. LL * detiatieg MULTIORIVE EXERCISER PROGRAM, INTO BOTH 


PROC 
B. SUT TCR: THE "CONTROLLER 2 aeLEet SWITCH TO Bee ACH _ORIVE 
WHICH IS TO BE TES A DUAL PORT ORIVE; YCLE HE ORIVES 


C. START THE PROGRAM IN EACH PROCESSOR. RUN THE PROGRAM a THROUGH 
EACH PROCESSOR WERE RUNNING INDEPENDENTLY OF THE OTHER 
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CONTROLLING THE PROGRAM 


THE FOLLOWI Key OARD en manee ARE USED BY THE KEYBOARD ENTRY 
ROUTINES IN THE PROGRAM 
A. TO DELETE AN pRCOnee ST woe a FROM_AN ENTRY STRING, TYPE A 

can hie Loar’ TYPING A ’RO’ WILL DELETE SUCESSIVE " CHARACTERS 


B. TO DELETE AN ENTIRE LINE, TYPE A ’CONTROL U’ (’tU"). 


C. ” ENTRY MUST pe TERA TNATED Fr RATION * CARRIAGE pe TURN N’ OR 
*PERIOD’. T Ee oN Is aye’ ms! THE 
RAM Aeon Re ts ENTRY pa yl Ne 1g, TERMINATED 
BY A 'PERIOD’ INSTEAD OF A “CARRIAGE RE URN’; I 
ACCEPT THE ENTERED VALUE AND WILL DEFAULT TO’ THE PRELOADED VALUES 
FOR ANY REMAINING ENTRIES. 
D. 


eh S_ TYPED DURING KEYBOARD ENTRY, THE PROGRAM 
aout RETURN TO THE BEGINNING OF THE GROUP BEING’ ENTERED. 


DATE & OPERATOR IDENTIFICATION 


WHEN THE PROGRAN enrdtes ant ALLY ne aves D of! WILL ASK FOR DATE AND 
OPERATOR I : 0. E FOR THESE ENTRIES OCCURS 

ONLY WHEN T: PROGRAA 15 F1 TED AND WILL NOT APPEAR WHEN 

THE PROGRAM ENTERING. 8 a TRIES ARE RePons AND MAY 

BE BYPASSE BRIA ft os! URN’ IN RESPONSE TO THE 
REQUEST. CHECK EITHER ENTRY. UP TO 

8 CHARACTERS OF DAT INEDRMAT TON’ AND UP TO & CHARACTERS OF OPERATOR 
IDENTIFICATION MAY ENTERED. BOTH THE DATE AND THE OPERATOR I.D. 
WILL BE TYPED WHEN THE 'SA’ COMMAND IS PERFORMED (SEE SECTION 4.4.3). 


PARAME TERS 


N_ THE PROGRAM IS STARTED FROM LOCATION 200, THE OPERATOR WILL BE 
ASKED TO ENTER PARAMETERS. THE FOLLOWING MESSAGE WILL BE DISPLAYED: 


ENTER PARAMETERS: 


THE OPERATOR eHTR NTE A “ TERMINATED BY A CARRIAGE RETURN <CR> 
IF PARAMETER & NTRIES SARE 10.8 — MADE. ANY OTHER CHARACTER 1S ACCEPTED 
AS A 'NO’ ENTR bRane WILL IDENTIFY THE PARAMETER BY THE NAME 
GIVEN BELOW DigpLAY 7 THE OORRENT ALUE OF THE PARAMETER AND 

WAIT FOR THE ENTRY. THE PROGRAM MILL TYPE ’INVALID ENTRY’ IF THE 
ENTRY IS NOT CORRECT AND WAIT FOR A CORRECT ENTRY TO BE TYPED. 


KEYBOARD ENTRY PARAMETERS 
DEFAULT VALUE 
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NAME 


MAXDL 
PASCNT 
INTRYL 


CMPLMT 
WCSEL 


ENDET 


FORMAT 


RATIO 


AUTOCK 


NOTPRT 


BASE 


10 
10 
10 


10 
8 


VALUE RANGE 
(SEE NOTE) 
1 i - 
5 0 - 256 
3 0 - 'MAXDL’ 
ooocoo O OR 1 
ooocol 0 OR 1 
990001 O OR 1 
000003 0-7 
000001 O OR 1 
000001 0 OR 1 


FUNCTION 


THE iNTERYA, CIN 


I 
RINUTES) BETHEEN are ATIC 
PERF E Y_TYPEOUTS 
OMPARS ION 


VALUE R/W RATIO 


NOU CWO 
wi 
“\ 
WwW 


I 
IF PARAMETER = 1, THE PROGRAM 
PERFORM WRITE CHECKS AFTER 
F PAREHE gon THE PROGRAM 
ERFORN WRITE CHECK 


WILL PE CHECKS 
RANDOMLY. 

IF PARAM TER = DO NOT PRINT 
ERROR DATA ERRORS 


BY THE OPERATOR AS BAD PACK 
LOCATION. 


SES 0009 


T-OR 


LGC MACY11 30(1046) 15-DEC-77 11:03 PAGE 11 
15-DEC-77 10:58 
IF PARAMETER = 0 PRINT ERROR 
MESSAGES ASSOCIATED WITH BAD 
PACK LOCATIONS. 
NOTE: THE PR WIL MUM BUFFER SIZE WH 
IS bere SRR INE THe a Fhe max Tun BUFFER 
S ee ASSIGNE ine 980 (10) WORDS. 
Bae AT R RaSTMUn SIZE “LONG. As THE 
VALUE CIF FIED rt et, teas? HER Pax BUT NO LARGER 
THE INIT ta: DETERMINED BY THE BROGRAN. 
4.2.2 PERIPHERAL ADDRESSES AND OTHER LOCATIONS OF INTEREST 


TO ALTER wntigse E LOCATIONS THE OPERATOR T MAKE MANUAL ENTRIES 
BEFORE T an 15 EM TARTED. ations KEYB ENTRY ROUTINE DOES 
NOT PROVIDE PRecESe HESE LOCATIONS. 


LOC TAG CONTENTS FUNCTION 

1144 $TKS 177560 TTY K vou BTUs REGISTER 

1146 $TKB 177S6e TTY KEY REGISTER 

1150 $TPS 177564 TTY iN R STAT: ReGtaTeR 

1152 STPB 177566 TTY PRINTER Fe GISTER 

1174 SLKCSR 172540 AO OR Eee KW11- ae REGISTER 

1176 SLKCSB 17eS4e S OF KW11-P COUNTER 

1200 SLPVE O04 KW11- CTOR 4 

1202 S$LKS 177546 ADDRESS KW11l-L_ STATUS REGISTER 

1204 SLLVEC 00 KW11- CTOR ss 

lele 74 74 ( CIMAL) IF SYSTEM IS 60 HZ; 

62 < CIMAL) IF SYSTEM IS SO HZ. 
0 ADDRESS AND ect OR MAY of CHANGED WHEN THE PROGRAM 

15 staRte. FROM OCATION (8) OR _ IF THE PROGRAM DOES NOT RECEIVE 

SPONSE WHEN IT ACCESSES THE DEFAULT RH11-RH70 ADDRESS. 


4.2.3 PARAMETERS FOR THE FIRST OPERATION 


THE FOLLOWING PARAMETERS ARE USED FOR Ls 4 INITIAL OPERATION (IN 
ADDITION TO THE 'MINIMUM’ ADDRESS VALUES). 


INITIAL VALUE 

LOC TAG VALUE RANGE FUNCTION 

1412 BEGPAT 10 L- 35 THE CODE FOR THE STARTING 
PATTERN. (IF A WRITE ORDER 
OR A pee Te “CHEEK ORDER IS 
SPECIFIED IN ’BEGCOD’) 

i414 BEGCOD s 0-5 THE aE TAAL COMMAND FOR EACH DRIVE 
EXERCISED. 
O = WRITE CHE TA 
1 = WRITE CHECK HEADER 8 DATA 


SEG 0010 
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1416 BEGSIZ 404 4 = MAXDL 


men 
D> 
D 


%.3 SWITCH REGISTER SETTINGS 


ir 1e}t Ep ERROR. T E BEL 
HE TEL TYPE 
TA C 


: Bela tea ‘ce Pai oe 


A 

~~ 

oO 

- 
nunnwe 


ECC 
INHT yee XI icPO NOT DEASSIGN 
res THE SECT We Pian RETRY ATTEMPTS) 


aA 
WwW £ 
vy wv 
L) U] 


R THE e8TH 


F’ c 
"SATA. fe cock menaoe SET, DISPLAY REST 
sn ATUS TYPEOUT DURING STARTUP. 
TA 


w 
= 
a“ 

tf 
v 
" 

— 


Me T 
eae AE TER READ ORDERS 
1 peo IS BEING RUN ON A SWITCHLESS "Bar TeH REG I.E. AN 11734) 


arate TERM 13 ea oe se M3 RIS 
ae OCAT DAT “tocat ON TR ca 
T 


i ake cA sagen gM i 
wo ONTROL GAT ANY TINE EXCE OGRAM 15 


5/6 INTERRUPT . te SBE TuARE a oe Poa reese AN 


AA 
Or 
ww 
wn 
ee be 


= ey 


BRIRB 
i 
4 


R IN RESPONSE ron : PROMPT FROM T 


m 
4 
4 
ww 
=< 
. 
oe 


*SWR = NNNNNN NEW =’ 


EACH H TIME must ee en TTING ee ENT RED, THE ENTIRE SWITCH REGISTER 
IMAGE NTERED wate ING OS ARE NOT REQUIRED., "RUBOUT’ AND 
* CONT O CORRECT TYPING ERRORS 

DURING YrcH UNeTay 

ON SSORS WITH ITCH REGI RS, THE "Soft WARE’ SWITCH 
nalree Doe de, THe PRG EINBS AL ALL 16 SWITCHES IN THE 


SOF TaRRE Pee Shea wo he SPISIER, RECEREOR Tot hob Sutt™ 


+4 KEYBOARD COMMANDS 
THROUGH THE KEYBOARD COMMANDS, THE OPERATOR MAY ASSIGN CRIVES 
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LOE CEA GA ae aR se ee 
sh COMMAND ) ORT Lin HIS 
ING nance iuenary"S OR WRITING’ (*D’ 


PROGRAN HAS BEEN INITIALIZED, THE FOLLOWING MESSAGE 
MILL Ree YPED: 


sited d omiegdh ted NTER CORMENDS* 
SRS a My eo AE 
coated sea eee 
TRY OPE THe EF OLL Eg i NG MES 
-ENTER COMMANDS: ’ 
egret Ton oF WILL THEN ACCEPT Pr Rem a 0 COMMANDS . AT note, "Pee 
esas | Sather iiss ty litte rl 
BUAYLABL CE ee TE Epo : CN” bkbcESCEBN 
PND BAD’ Location ADDRESS CRIRTES: PoR Fue ORIVE BAC REPERERCEDS” 


wine WILL FIRST ASK FOR ADDRESS LIMITS WITH THE FOLLOWING 


"ENTER ADORESS LIMITS FOR DRV @N 7 RPOY’ (OR RPOS OR RPOS) 
M3 rpoenan WILL REQUEST VALUES FOR THE FOLLOWING ADDRESS LIMIT 
AMETERS. 


DEFAULT VALUE 


NAME BASE VALUE RANGE FUNCTION 
MINCYL 10 ( NOTE) THE MINIMUM cvEd a RESS 
MAXCYL 10 (SEE NOTE) THE MAXIMUM CYL — 
MINTRK 18 8 8 ° 18 iy. 3 phat ay FRAG 

xXTRK 1 1 *. 5 THE MAXIMUM TRACK R 2 
MINSEC 10 0 y= @) THE MINIMUM SECTOR RODRESS 
MAXSEC 10 21 0 - el THE MAXIMUM SECTOR ADDRESS 


NOTE: 1. THE ADDRESS LIMITS ARE IN DECIMAL 


2. THE MAXIMUM VALUES OF 'MINCYL’ AND "MAXCYL’ WILL GE EITHER 
410 (10) OR 814 (10) DEPENDING ON THE TYPE OF DRIVE. 


3. THE MINIMUM CYLINDER, TRACK, OR SECTOR ADDRESS MAY BE 
SPECIFIED AS BEING LARGER THAN THE MAXIMUM ADDRESS. WHEN 


SEG Olé 
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if RTE HE jaye ge WIL LECT 
aa ah Fle Phe The BPE 
en AA OR THAT a3 ONO MECH ‘oe Nw THE 
EAC 


HC XCEPT T ’D’ COMMANDS, WILL ASK FOR 
A CRIV ore PTL EE Dat VE {DENT IFICAT ON ENTRY 
"ENTER 1.0. FOR DRV @N:’ 


T RATOR MAY ENTER AN . T 
CHARACTERS IN CE i GN 2-0. SNUNBER COR LTPLAYED. ALONG. W 
DATE AND - EN R es CTI : WHE 
ONMAND I XECUTED. 

TERMINATED RETURN’, OR A PERIOD’ ONLY (NULL 
IN RESPONSE to" THE Te QUEST. 


THE PROGRAM WILL THEN FOR THE ADDRESSES OF KNOWN BAD SPOTS ON 
THE DISK PRCK USED, UP TO 16 SSES MAY BE ENTERED: 


"BAD TRK/SEC RORS FOR ORV #N 7?’ 
re ree MAY DECLARE f: TO 18 Bad LOCATIONS on 


USE THE LOCATION MAY BE AN ENTIRE CYLINDER, A 
SECTOR. ORMATS USED ARE AS FOLLOW: 
FORMAT 1: ,T,S<CR> 


c 
A. Han PROGRAM WILL INHIBIT 
IDEN I 


THE PACK BEING 
AD TRACK, OR A SINGLE 


pare roy yi essee OR WILL 


ES 
TIFY DATA ERRORS WHICH OCCUR AT THE SPECIFIED D ADDRESS, 
DEPENDING THE VALUE OF PARAMETER ‘NOTPRT’ 
B. LEADING NOT REQUIR 
FORMAT 2: C,T<CR> 
A. WHEN THIS FORMAT Is USED, THE ENTIRE TRACK WILL BE 
CONS IDERE i ypA A ERRORS WILL BE HANDLED AS IN 
"FORMAT Bt ir, 6 
B. LEAD nol ARE’ NOT REQUIRED. 
FORMAT 3: C<CR> 


A. WHEN Monet Bch ee" en Is USED ENTIRE CYLINDER WILL 
BE C sib D BAD; DATA ERR S WILL BE HANDLED AS IN 


B. LEADING ZEROS ARE NOT REQUIRED. 
NCTE: CYLINDER, TRACK, AND SECTOR ENTRIES ARE IN DECIMAL. 
THE OPERATOR MAY TERMINATE THE BAD ADDRESS ENTRY BY ENTERING A 
*PERIOD’ IN RESPONSE TO THE ENTRY REQUEST OR ol Y TERMINATING AN ENTRY 
WITH A ’PERIOD’ INSTEAD OF A *CARRIAGE RETURN’® 


*T’ COMMAND 


SES 0013 
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USED TO Bsa Ten A ORIVE(S) FOR TEST. THIS COMMAND IS REGUIRED 
PERFORM THE ES OF THE DRIVE(S). THE OTHER COMMANDS ARE CONVIENCE 
OMMANDS OR ORT COMMANDS. 


FORMAT: TN<CR> 


= PERMINIBTED BY A CARRIAGE RETURN <cR>. YS! BE 


EXAMPLE: roc - ASSIGN DRIVE 9 FOR TEST 
A<CR> - ASSIGN ALL AVAILABLE DRIVES FOR TEST 


NOTE: oniy OPERATION BEGINS IMMEDIATELY 
AFTER COMMAND IS ENTERED. 

’D’ COMMAND 

USED TO DEASSIGN R DRIVE(S) SEING EXERCISED. 


FORMAT: DON<CR> 


N = DRIVE NUMBER MAY BE 0 TO 7 OR 'A’. ENTRY MUST SE 
TERMINIATED BY A CARRIACE RETURN <CR>. 


EXAMPLE: Boe - peraaten DRIVE GO 
R> - rethcs GN ALL ORIVES BEING 


NOTES: 1. IF DRIVE “Noy of Ass . ae i A 
ILL T SORIVE NOT ASSIGNED’ 


Tee DRIVE Wik OSE DEASSIGNED AS THEIR 


2. IF ’DA’ IS U Y DRIVES BEING 
ESTED ul vie Oren Sic pes - THE 
RonG IN (1) SOSvE WILL NOT 


nm 


*S’ COMMAND 


Cnt emcee A PERFORMANCE SUMMARY TYPEOUT FOR THE REFERENCED 
¥ 7 


FORMAT: SN<CR> 


N = DRIVE NUMBER. Y BE 0 T0 7 OR 'A'. Eopieinis MUST BE 
TERMINTATED BY A CARRIAGE RETURN <CR> 


EXAMPLE : 29<CR> - TYPEOUT PERFORMANCE p aphbne td FOR ORIVE 0 
SA<CR> - TYPEOUT PERFORMANCE SUMMA 
FOR ALL DRIVES BEING TESTED. 


SEG 9014 
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NOTES: 1. IF °SA’ IS USED ONLY DRIVES BEING TESTED WILL 
BE DISPLAYED. 
2. IF PARAME TE TER TRV 5. NOT R GRAM 
WILL apa TICALLY vbisPcay 4 BER FORMAN cf : MMARY 
FOR EACH DRIVE FED. AT A AYE 6 MINED BY 
*INTRVL’. 
3. IF THE °SA’ COMMAND IS USED, THE PROGRAM WILL TYPEOUT 
THE OPERATOR ENTERED DATE, RATOR I.D., AND THE ORIVE 
1.0. FOR EACH DRIVE BEING TESTED. THE DATE AND OPERATOR 
1.0. WILL NOT BE TYPED OUT IF NO DRIVES ARE BEING TESTED. 
‘Ww’ COMMAND 


USED TO WRITE A DATA PACK WITH DATA ACCEPTABLE TO THE RPOY/’S/’6 MULTI- 
DRIVE EXERCISER PROGRAM. 


FORMAT: WN<CR> 


N = DRIVE NUMBER. MAY BF 0 U4 OR ’A’. ENTRY MUST BE 
TERMINATED BY A CARRIAGE RETURN <CR>. 


EXAMPLE: WA<CR> - WRITE pete PACKS ON ALL AVAILABLE DRIVES. 
WO<CR> - GENERATE A DATA PACK ON DRIVE O. 


NOTES: 1. DATA PACKS GENERATED EY BY Me Wy Se FORMATTER PROGRAM 
SA Loe e} CHANICAL & READ/WRITE 


PROGRAM 2 JA), at ST 20 ACCEPTABLE. (PACKS 
WRI TEN By TEST fen 21 OF 'BZRJA’ CANNOT BE USED 
2. UNLESS ’MAXDL 


Lbs ee SPT, detente oe," 
“3 Ms Ds, u comeno, args 0 CORMAN: THe He bata Pat FERN 


THE, OPERATION, OF THE  CQRRARO TS, SEQUENTIAL BEGINNING 
QT MINCYL", "MINTRK’ a6 Fares "MAXCYL’, 


4. THE °'W’ COMMAND DOES NOT WRITE HEADERS AND ASSUMES 
THAT THE FORMAT OF THE PACK IS GOOD. 


S. THE Wl? COMMAND - p Ske TARTED IF SWITCH O (READ 
Y MODE) IS SET, — WITC O SET SET DURING THE 
OPERATION OF THE conn THE DRIVE PERFORMING THE 
"W’ COMMAND WILL 1CNO £ mae Ba HE 


6. THE DATA WRITTEN IS VERIFIED BY A *WRITE CHECK DATA’ 
COMMAND. 


SEG OO15 
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4.4.5  °*R* COMMAND 

USED TO PERFORM A SEQUENTIAL READ OF THE PACK. 
FORMAT: RN<CR> 


N = DRIVE NUMBER. Y BE 0 T0 7 OR ’A’. ENTRY MUST BE 
TERMINATED BY A MCARRIAGE RETURN <CR>. 


EXAMPLE : app ot ° PERS THe PACKS ON ALL or. THE ONLINE ORIVES. 
CR> - PACK ON DRIVE 0 


NOTES: 1. THE PROGRAM WILL PERFORMA NORMAL CHECK OF ALL DATA 
READ. HOWEVER, ALL RATIONS WILL BE SEQUENTIAL. 


THe PROGRAM WILL READ THE PACK STARTING AT THE ADDRESS 
3 te 


D BY *MINCYL’, "MINTRK’ TO THE ADDRESS SPECIFIED 
CYL’, 'MAXTRK’. THE READ WILL BE SEQUENTIAL. 


4.4.6 GENERAL COMMAND INFORMATION 
ff. WHEN A COMMAND IS ENTERED, THE PROGRAM WILL TYPE OUT THE TIME 


B. THE COMMAND ENTERED IS NOT VALID, THE PROGRAM WILL TYPE 
FTNVALID COMMAND * . 


C. ORIVES ASSIGNED (WITH THE *T’ COMMAND) OR DEASSIGNED (WITH THE 
’D’ COMMAND) MAY BE ENTERED IN ANY SEQUENCE. 


D. THE ERROR RESPONSES FROM THE PROGRAM ARE AS FOLLOWS 


RESPONSE COMMAND (S) 
?UNIT N OFFLINE T, W, R 
?UNIT N NOT ASSIGNED DB, S 
"UNIT N ALREADY ASSIGNED 7, & 8 
?UNIT N NOT PRESENT 7, & © 
?UNIT N UNSAFE T, W, R 
?UNIT N NOT AN RPO4/S/E T, W, R 
s PERFORMANCE SUMMARY TYPEOUT 
S.1 THE PROGRAM WILL ht a A PERFORMANCE SUMMARY FOR THE DRIVES 
BEING gt pid SUMMARY WILL BE R Can BE OTS tg le ed 
IF THE PAR a we mS. NOT_ ZERO PLAY 44 ON 
REQUEST BY THE OPERATOR THROUGH THE USE OF THE 


MAN 
THE PERFORMANCE SORMARY TYPEOUT CONTAINS THE FOLLOWING FIELDS: 
‘ORY’ THE ORIVE NUMBER 


LGC 
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*PASS’ RURBER or "3B a T FOR THE D 

ORDERS’ “4 ae VRE DRIVE 

*SEEKS’ ie DRIVE PERFORMED 

*"WROS XFER’ - MUnBER N AND READ BY THE DRIVE 
*WROS READ’ THE TOTAL R et ie ie Y THE ORIVE 

*SOFT* THE NUMBER OFT DATA “fees 

* HARD’ THE R OF HARD DATA ERRORS 

*SKI* THE R OF ‘SKI’ OR ’OCYL’ ERRORS 

*MISP* THE NUMBER OF POSITIONING ERRORS 

* OTHER’ THE TOTAL ERRORS OF OTHER TYPES 


NOTE: ERRORS EM1, EM2, EM3 EMM, EMS, & EM10 ARE NOT INCLUDED IN 
THE ’OTHER' ERROR TOTAL 


SOFT/HARD ERROR DEFINITIONS 


HARD ERRORS 
A. A *OTE’ (DRIVE TIRING ERROR? OR A_’OCK’ (DATA CHECK ERROR) 
WHICH OCCURS DURING A READ DATA OR A READ HEADER & DATA Saat eon 
NOT CORRECTED OR BECOMES CORRECTABLE AFTER pore 
HAS PERFORMED THE COMPLETE RETRY SEQUENCE HE B 
THE RETRY SEQUENCE IS 16 OErceTeS AT TRACK CENTER AND 2 ATTEMPTS 
AT EACH OF THE FOLLOWING OFFSETS: 


RPOYW/S RPOb 


+400 M IER” TNcIEe +200 MICRO WINCHES 
-400 MICRO-INCHES -200 MICRO-INCHES 
+e at Se astaat Le F +400 MICRO-INCHES 
O- INCHES -400 MICRO-INCHES 
+1200 ae ERO-INCHES +800 MICRO-INCHES 
-1200 MICRO-INCHES -B800 MICRO-INCHES 
SOFT ERRORS 
A. ECC CORRECTABLE ’OCK’ ERRORS. 
B. ‘DOCK’ & *ECH’ ag a BECOME Ecc CORRE CTASLE DURING 
RETRY OR WHICH ARE READ CORRECTLY OURING RETRY 
C. HEADER READ ERRORS - READ DATA, READ HEADER 8 DATA, OR 
WRITE DATA ORDERS. 
o “De” © WHICH ARE CORRECTED OR WHICH BECOME ECC CORRECTABLE 
’DCK’ ERROR DURING THE RETRY SEQUENCE. 


DATA COMPARISON 


DATA COMPARISON OCCURS AFTER EACH "RODAT’ (READ DATA) OR 'ROHD’ 
(READ HEADER AND DATA) OPERATION UNDER THE FOLLOWING CONDITIONS: 


A. THE ORDER TERMINATED WITH NO ERROR. 


SEG 9017 
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6.3 


FOe2 


macyal 30(1046) 15-DEC+77 11:03 PAGE 19 


B. THE OPERATION TERMINATED a *DCK’ SET AND THE ERROR 
IS ECC CORRECTABLE OR THE S ‘ro IN ERROR IS READ 
CORRECTLY AFTER RETRY ATTEMPTS. 


VERIFICATION OF DATA WRITTEN 
AFT REACH WRITE OPERATION, THE DATA WRITTEN IS CHECKED. WITH THE 
APPR é CHECK COMMAND - IF PARAMETER 'AUTOCK’ IS 1. 
(IF *AUTOCK’ IS 0, WRITE CHECKS WILL BE PERFORMED RANDOMLY~ ) 
SECTOR REFORMATTING 

PROGRAM WILL REFORMAT AN UNCORRE CTABLE ERROR SECTOR IN THE 


THE 
FOLLOWING CASES (PARAMETER ‘FORMAT’ MUST BE SET AND SW<OO> = 0). 
THIS PREVENTS THE SAME ERROR FROM BEING CONTINUOUSLY REPORTED. 


A. DATA CHECK ERRORS - EM21 

B. HEADER, READ ERRORS - RRORS - _ENeQ EM24, EM2S, EM26, EM27 
D. RATION INCOMPLETE ERRORS - EM32 

E ORE TE CHECK ERR - EM22, EM23 


BAD TRACK/SECTOR FLAGGING 


SINCE THE RPOY eye SYS Tet pote be NO 

HANDL ING oy jh 

TO IDENTIFY UP TO 8 BAD TRACK SE T 

ASSIGNED FOR TEST. (SEE SECTION 4. 
vy 


IF ONE OF THE FOLLOWING ERRORS 0 
calle THE PROGRAM WILL I 


OMATIC BAD TRACK 
ALLOWS THE OPERATOR 


S_ WHEN THE DRIVE IS 
TIONAL INFORMATION. ) 
CATION IDENTIFIED BY 
ROR REPORT FOR THAT 


m2 


Zo 


Ue teh incor! ag 
pee Rat EON INEOREL TE ERRORS (’OPI’) 
HEADER READ. ERRORS (’ ‘FERS *HCRC’, "HCE’ & *HCRC’, ‘HCRC*) 


OPTIONALL ¥ THE OPERATOR MAY REQUEST _ aN N ERROR R REPORT FOR | FLAGGED 
AREAS. (PAR TER *’NOTPRT’ MUST BE S TUP.) THE 
PROGRAM wie LL IDENTIFY ERROR MESSAGES FesocrA TED BITH THE packs THESE 
ER RORS WILL NOT BE ADDED TO THE ERROR TOTALS MAINTAINED BY THE 


ERROR MESSAGES 


I LABLE ) 
LINE PRINTER. ALL ERROR CONDITIONS ARE REPORTED IN ERROR NESSAGES: 
THE Pyro M CONTAINS NO CODED ERROR ak rif THE PROGRAM HALTS 

(ASSUMING MOF COURSE, THAT SW<IS> IS NOT SET), AN UNRECOVERABLE 
PROGRAM CONDITION HAS OCCURRED OR A CENTRAL PROCESSOR FAILURE HAS 


SEG 0018 
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OCCURRED. 
ERROR MESSAGES ARE MADE UP 
HAS SEVERAL OPTIONAL L 
POSSIBLE ERROR MESSAGE L 
SECTION DESCRIBING THE P 
ERROR DESCRIPTION LINES 

MESSAGES EM1, EM2, EM3, EM4Y, EMS, EM1O, EM11, & EM12 ARE ALWAYS 
DISPLAYED ON’ THE TTY. ‘THE OTHER’ SSAGES | ARE 5 SPLAYED ON EITHER 
THE LINE PRINTER (IF AVAILABLE) OR THE T 

(THE MESSAGE TAGS ARE GIVEN FOR REFERENCE. ) 

MESSAGE 

TAG TEXT 


EM1 RH11 INTERRUPT OCCURRED (RPAS=0) 


THE RH11 INTERRUPTED AND THE ATTENTION SUMMARY REGISTER 
(RPAS) WAS CLEARED. 


EMe UNEXPECTED ATTENTION OCCURRED 


THE INDICATED DRIVE nr BUT THE DRIVE WAS NOT 
PERFORMING AN OPERATION. 


EM3 MASSBUS PARITY ERROR (MCPE=1) 


THE RH11 DETECTED A CONTROL BUS PARITY Y Enns WHEN READING 
THE INDICATED REGISTER FROM THE INDICATED DRIVE. 


EM4Y MASSBUS PARITY ERROR (PAR=1) 


THE INDICATED RPOY DETECTED A CONTROL BUS “reaped ERROR 
WHEN THE RH11 LOADED THE SPECIFIED REGISTER 


EMS ADDRESS PLUG CHANGE BIT SET 
THE ’OPE’ BIT WAS SET WHEN THE INDICATED DRIVE INTERRUPTED. 
EME RH11 DIDN’T RESPOND TO ADDRESSING 


WHEN THE PROGRAM ADDRESSED THE RH11, NO RESPONSE WAS RECEIVED 
FROM THE INDICATED ADDRESS. 


EM10 UNCORRECTABLE MASSBUS PARITY ERROR 


THE a a HAS TRIED 3 TIMES TO READ OR WRITE THE INDICATED 
REGISTER. 


EM11 FATAL MASSBUS PARITY ERROR 
f& CONTROL BUS PARITY ERROR OCCURRED WHEN THE RH11 ATTEMPTED 


SEVERAL LINES. EACH TYPE OF pec 
CH MAY Teor a WITH IT. ALL OF THE 
a MAY APPEAR ARE GIVEN IN THE 
ULAR ERROR HEADER. 
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TO PROCESS A PREVIOUS, DIFFERENT PARITY ERROR. 
EMle PERSISTENT DEVICE UNSAFE 


obatitad'Y PERSETAOUS Gelve. He BREE Patton 


E ENERCISED eae THE UNSAFE ve atten HAS BEEN 


EM13 OPERATION NOT COMPLETED WITHIN TIME LIMIT 


ps3 DRIVE DID NOT COMPLETE THE OPERATION WITHIN 1 SECOND 
AFTER THE OPERATION WAS INITIATED. 


EM14 UNIT WENT OFFLINE 


HE DRIVE WENT OFFLINE PURING T THE por cere OPERATIO 
( CTE oe IT aloe TH WILL A TOMATICALLY 
beAss is ft SeeRATO MUST REASSIGN THE DRIVE 
. COMMAND TO RE-INITIATE TESTING. 


Em1S NO RESPONSE TO PORT REQUEST 


THE pnogaet A$ TESTING @ UAL PORT OR IVE WHICH HAS NOT SWITCHED 
+S THE REQUESTING PORT WITHIN 1 pate AFTER PORT REQUEST 


O THE DRIVE FROM THE REPORTING P 
EMe20 HEADER CRC ERROR 
6 BeAr CRC ERROR WAS DETECTED AT THE INDICATED DISK ADDRESS. 
TENTS OF THE HEADER ARE DISPLAYED. THE OPERATION WILL 
BE RETRIED Fimes. 
EMe1 DATA CHECK (’DCK’) ERROR 
@ PATA CHECK ERROR WAS DETECTED AT T NOICATED SE 


CTOR. 
TRY SEQUENCE (INCLUDING OFFSET) WILL BE INITIATED 
iy oof SECTOR IN ERROR IF THE ECC HARD ERROR (’ECH) BIT 


EM22 WRITE CHECK ERROR - DATA CHECK (’DCK’) SET 
A WRITE CHECK ERROR OCCURRED AND THE DATA CHECK ‘’DCK’) BIT 
WA SET. IF °ECH’ IS NOT SET, THE OPERATION WILL BE RETRIED 
TO 3 TIMES; IF THE ’ECH’ BIT IS SET, THE OPERATION WILL 
BE RETRIED UP'TO 16 TIMES. 
EM22 WRITE CHECK ERROR - DATA CHECK (’DCK’) NOT SET 
ase" CHECK ERROR_O rOSCuR RED AN 'DCK’ WAS NOT SET. THE 
WORD WHICH CAUSE D SLAVE IN THE ERROR 
. THE SEER ATION WILL BE RETRIED 3 TIMES. 


EMe4 HEADER READ ERROR - ‘FMT’ BIT DROPPED 


102 
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A WRITE ATA, cK oR*BeeuR OR A READ DATA WAS BEING 
RF ORME AND AY? pre RR RED. THE PROGRAM RE - READ THE 
ADER THE ERROR SECTOR AND ree RC’ BIT WAS THE 
CONT NTS OF T HEADER ARE DISPLAYED. THE OPERATION “me 
BE RETRIED 3 T MES 


EMeS HEADER READ ERROR - HEADER COMPARE ‘’HCE’) ERROR 


SIMILAR_TO EM24, EXCEPT THAT THE ‘HCE’ ERROR BIT WAS 
SET INITIALLY. "THE OPERATION WILL BE RETRIED 3 TIMES. 


EM26 FORMAT ERROR (’FER’) 
FORMAT roa? OCCURRED. WHEN ie HERQER WAS RE-READ, THE 
"HCRC’ BIT WAS NOT SET. THE CONTENTS OF THE HEADER ARE 
DISPLAYED. THE OPERATION WILL “BE RETRIED 3 TIMES. 

EMe7 HEADER COMPARE ('HCE’) ERROR 


SIMILAR TO EM26 EXCEPT THAT THE "HCE’ BIT WAS SET INITIALLY. 
THE OPERATION WILL BE RETRIED 3 TIMES. 


EM30 MISCELLANEOUS DRIVE ERROR 


THIS MESSAGE IS GIVEN FOR THE FOLLOWING ERROR BITS: 
"inn, "ROR", "RPR’, °ILF*, GR ER’ 


EM31 OPERATION INCOMPLETE (’OPI’) ERROR 
ll INCOMPLETE ERROR OCCURRED AT THE INDICATED 


EM32 DRIVE TIMING (’DTE’) ERROR 


DRIVE TIMING ERROR OCCURRED ON THE INDICATED SECTOR. THE 
OPERATION WILL BE RETRIED 3 TIMES. 


EM33 PARITY (*PAR’) ERROR AFTER OPERATION STARTED 


THE *PAR’ BIT WAS SET WHEN THE SEEAAT 300 WAS COMPLETED. THE 
OPERATION WILL BE RETRIEO 3 TIMES 


EM34 WRITE CLOCK FAILURE (°WCF’) 


A WRITE CLOCK FAILURE OCCURRED DURING THE OPERATION. - THE 
OPERATION WILL BE RETRIED 3 TIMES. 
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EM35 -—«X INVALID ADDRESS (’IAE’) ERROR 
AN INVALID ADDRESS ERROR OCCURRED DURING THE OPERATION. 
EM36  #WRITE LOCK ('WLE’) ERROR 
A WRITE OPERATION WAS ATTEMPTED BUT THE DRIVE WAS WRITE 
LOCKED. 


EmM40 RH11 OR UNIBUS TRANSFER ERROR 


*TRE’ IS SET IN THE RH11 CONTROL REG 
ERROR HAS OCCURRED. THE OPERATION W 
oa'Se IF THE ERROR WAS CAUSED BY ’DL 


ISTER AND _NO DRIVE 
ILL BE RETRIED 3 
,', US’, “or” 


Lol 


’ 


EM41 BUS ADDRESS OR WORD COUNT INCORRECT 
NO DRIVE ERROR QE CURRED BUT EITHER THE BUS ADDRESS INDICATES 
THAT AN INCORRECT NUMBER OF _WORDS WERE TRANSFERED OR THE 
WORD COUNT REGISTER IS NOT ZERO. 

EmM4e DATA COMPARE ERRORS - NO DRIVE ERROR DETECTED 


NO SUBSYSTEM ERROR WAS SIGNALED; HOWEVER, THE DATA DOES NOT 
COMPARE . 


EM43 CAN’T MATCH DATA READ WITH A PATTERN 
THE DATA IN THE BUFFER DOES NOT MATCH ANY OF THE STANDARD 
PATTERNS. 


EM44 ERROR BIT(S) SET, BUT NO ERROR SIGNALED BY THE RH11 
THE OPERATION COMPLETED NORMALLY; HOWEVER, THE PROGRAM 
Ou Th et ERROR BITS IN THE RPOY SET OR ERROR BITS IN 


EmM4S ECC LOGIC FAILURE 


THE CONTENTS OF EITHER THE ECC POSITION REGISTER (RPEC1) 
OR THE CONTENTS OF ECC PATTERN REGISTER (RPEC2) ARE N 
VAL TD. THe POSITION REIGSTER IS Sener’ O" OR >» 10041 (8) 
OR THE PATTERN REGISTER CONTAINS ZEROS. 


EMYE BUS ADDRESS OR WORD COUNT NOT CONSISTEN 
PROGRAM WAS PROCESSING AN ERROR AND FOUND THAT THE 
NUMBER OF WORDS TRANSFERED AS INDICATED BY THE BUS ADDRESS 
REGISTER DOES NOT AGREE WITH THE TRANSFER COUNT FROM THE 
WORD COUNT REGISTER. 
Enso SEEK INCOMPLETE OR OFF CYLINDER ERROR 


THE DRIVE SIGNALED EITHER ’SKI* OR *OCYL’ ERROR BITS. 
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EMS1 PROGRAM DETECTED POSITIONING ERROR 
A _ HEADER atten. | a OCCURRED (’HCE'}: HOWEVER, WHEN THE 
Pon Sane Ne HE HEROES OF THE SECTOR IN ERROR, IT 
FOUND THAT THE CYLINDER FIELD DID NOT AGREE WITH THE CONTENTS 
OF *RPCC’ OF THE DRIVE. THE ORIVE WILL BE RECALIBRATED. 


EM60 DEVICE UNSAFE 


THE INDICATED DRIVE UNSAFE ERROR OCCURRED; THE ERROR WAS 
CLEARED BY A *DRIVE CLEAR’ INSTRUCTION. 


E 


7.2 DETAIL ERROR LINES 
THE LINE NUMBERS GIVEN BELOW ARE FOR REFERENCE ONLY. 


TT: TT: TT (DESCRIPTION OF ERROR) 


*TT: TT: TT’ IS THE TIME SINCE THE PROGRAM 
WAS STARTED. TT:TT: TT IS GIVEN IN HOURS: 
MINUTES: SECONDS. 


"PRESENT ORDER = XXXX PREVIOUS ORDER = YYYY’ 
MNEMONICS USED FOR THE ORDERS ARE DEFINED BELOW: 


UNLOAD - UNLOAD (OCTAL 3) 
SEEK - K oo 5) 
BavCe - RecaL BRATE (OCTAL: 7) 


OCTAL 51) 
DATA (OCTAL S3) 


) 
DATA (OCTAL 63) 
OCTAL 73) 


ISTERS IN" TWO GROUPS: 
b RPER2, RPERS,RPECL, & RPECe FORM THE FIRST 
HE OTHE GISTERS ARE IN THE SECOND GROUP. 
Wc05> IS SET, ONLY THE REGISTERS IN THE FIRST GROUP WILL BE 

oe 


z 
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ie ABOVE LNG WILL BE TYPED IF THE ERROR OCCURRED DURING 
HE NON-DATA TRANSFER PART OF THE OPERATION. 
*# ERROR AT BAD TRACK/SECTOR’ 
HE ABOVE LINE WILL BE PRINTER IF A DATA Enon a cures ar AN ADDRESS 
a. 3 PACK Ce eae T ve ogi ties ne IDEN) ain BAC. PARAMETER 
PROT T’ HE ERROR TO 


A WORD CALLED “rt en DTSPLAYED WITH mi 1A’ A, REGISTERS. THE 
OE FY HOW T OOeE Rie Y THE 


CONTENTS OF SWORD I 
RPO4/S/6 oF Te HA R ROUTINE. THE fen IN 4 S WORD ARE ENCODED 
AS FOLLOWS: 
BIT # MEANING IF BIT IS ‘1’ 
1S ERROR OCCURRED 
(B1T07=0), BITS 14-9, 2, 1 SPECIFY TYPE 
DONE (BITO7=1); BITS 6-3 SPECIFY TYPE 
14 DRIVE IS OFFLINE 
12 PERSISTENT UNSAFE CONDITION EXISTS 
11 UNCORRECTABLE PARITY ERROR OCCURRED 
10 FATAL L PARITY ERROR OCCURRED. MASSBUS CLEAR 
3 OPERATION NOT COMP D WITHIN 1 SECOND 
RASSBUS PEAR P RE ORMED L OTHER 
BUTS TARD KE OPERATIO CERES RESTARTED. 
7 DONE - OPERATION COMPLETED 
DATA ERROR OCCURRED DURING THE TRANSFER 
cS ERROR OCCURRED WHILE SEARCHING FOR THE ‘TRANSFER’ 
SECTOR OR DURING RECALIBRATE OR OFFSET COMMANDS 


4 CORRECTABLE UNSAFE CONDITION OCCURRED 


DRIVE ERROR OCCURRED THAT CAUSED AN AUTOMATIC 
RECALIBRATE SEQUENCE 


PORT REQUEST TIMEOUT 
NON-EXISTENT ORIVE REQUESTED 


- 


ERROR AT CXXX TYY SZZ PREV ADDR = CULU TVV SW 


C2RIOCO,MLT-DR LGC 


C2ZRIOC.F11 


1S-DEC-77 


Oe 


MACY11 30(1046) 15-DEC-77 11:03 PAGE 26 


10:58 

THE ACT AODRESS OF THE ERROR SECTOR AND THE PREVIOUS 
OISK SS ARE GIVEN IN THIS LINE. CYLINDER, TRACK, & 
SECTOR ADDRESSES ARE IN DECIMAL. 

LINE 4 


PRESENT ADOR = CXXX TYY SZZ PREV ADDR = CUUU TVV SWW 
rus LINE IDENTIFIES THE ADDRESS WHEN THE ERROR WAS ete 2451 


PREVIOU SS_IS ALSO GIVEN. CYLINDER, TRACK, & SE 
ADDRESSES ARE GIVEN IN DECIMAL. 


——ecee 


START CYL = XXX END CYL = YYY 


THIS LINE IDENTIFIES THE STARTING CYLINDER OR A SEEK (IMPLIED) 
THE DESTINATION CYLINDER. CYLINDER ADDRESSES ARE IN 


START CYL = XXX END CYL = YYY ACTUAL CYL = 222 

THIS NTIFIES THE START F AN IMPLIED SEEK, 

THE DESTINATION ‘ rE TNOER, NDER, AN the Sve} DER HE DISK LAGD PEEK. 
ON ENDER ADDRESSES N DECIMA 


RPBA = XXXX RPWC = YYYY 
FBLS bane GIVES is ONTENTS OF THE RH11 BUFFER ADDRESS 


REGISTER AND THE RHi1 W OF eT REGISTER. THIS LINE IS 
NOT PRINTED IF SW<0S> 1S" NO 


START CYL = XXX START TRK = YY START SECTOR = 22 


THIS Line IDENTIFIES THE STARTING DISK ADORESS OF THE PRESENT 
GPERATION. CYLINDER, TRACK, AND SECTOR VALUES ARE DECIMAL. 
LINE 9 


RPDA = XXXX RPCA = YYYY 


THIS LINE GIVES THE CONTENTS OF THE RPOY TRACK AND SECTOR 
ADDRESS REGISTER AND THE CONTENTS OF THE DESIRED CYLINDER 
AODRESS REGISTER. THIS LINE IS NOT PRINTED IF SW<OS» IS NOT 
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BUFFER ADOR = XXXX SIZE = YYYY ACTUAL NUMBR WRDS XFRD = 2222 
LINE GIVES THE gtearin RONG re S OF THE BUFFER USED FOR 


a SC MT Og BAH 


ScTAL THE MT oE AND ANG WORD TR RANSFERED VALUE ARE 


GOOD DATA = XXxXxX BAD DATA = YYYY SECT POS = 222 
pia) Se LINE GIVE i“ Th Fre DATA, THE ACTUAL DATA FROM THE DISK 


LOCATION ms SECTOR OF THE ACTUAL DATA. THE SECTOR 
POSITION IS IN DE 


HEADER CONTENTS OF ERROR SECTOR = XXXX XXXX XXXX XXXX 
THIS LINE GIVES THE CONTENTS OF THE HEADER OF THE SECTOR WHICH 
GAVE THE ERROR. 


RPEC] = XXXX RPEC2 = YYYY 


a! LINE WILL BE PRINTED AFTER A @ SUCESer UL RETRY OF & SECTOR 
H BECAME ECC CORRECTABLE DURING RETR 


ECC CORRECTABLE WITHOUT OFFSET 
THE SECTOR IN ERROR IS ECC CORRECTABLE; NO RETRY ATTEMPTS ARE 
NECESSARY. 


REAC CORRECTLY AT OFFSET X MICRO-INCHES 


THE Bec TOR Ef IN ERROR WAS READ WITHOUT ERROR AT THE INDICATED 
OFFSE 


SEQ 0026 
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ECC CORRECTABLE AT OFFSET X MICRO-INCHES 


echt IN ERROR BECAME ECC CORRECTABLE AT THE INDICATED 


CORRECTED ON X RETRY 


wc WAS PERFORMED ERROR FREE ON THE INDICATED RETRY 


LINE 18 


UNCORRECTABLE AFTER X RETRIES 


THE OPERATION COUNT NOT BE PERFORMED CORRECTLY AFTER THE 
INDICATED NUMBER OF RETRY ATTEMPTS. 


DIFFERENT ERROR DURING RETRY 
wane THE PROGRAM WAS RETRYING THE ERROR DIFFERENT OCCURRED. 


IF THIS LINE IS PRINTED, THE RH1i1/RPOY REGISTERS WILL ALSO BE 
PRINTED (SEE LINE 2). 


DATA COMPARISON ERRORS 
A PRINTOUT OF THE DATA COMPARISON ERRORS FOLLOW THIS LINE. 


TOTAL COMPARE ERRORS = XXXX 


THIS LINE GIVES THE ore DATA COMPARISON ERROR COUNT. THE 
VALUE GIVEN IS IN DECIMA 


THE DATA COMPARED OK 


THIS LINE INDICATES THE RESULTS OF THE DATA COMPARISON FOLLOWING 
ECC CORRECTION. 


LINE 23 
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ECC CORRECTION RESULTS 
ECC gh 8 pay re RESULTS ARE REPORTED. 


IP Pe apes, 19,9 at Phe “Wades PRP ER EG cffGn CARE PRIN oe 


ERROR BURST BEGINS AT WORD XXX IN DATA FIELD OF ERROR SECTOR 
THIS IS AN INFORMATIONAL LINE WHICH WILL BE PRINTED FOR 'DCK’ ERRORS 


WHICH ARE ECC CORRECTABLE OR WHICH BECOME ECC CORRECTABLE DURING 
DECIMAL *XXX’ IS THE WORD OFFSET VALUE FROM *RPEC1’ AND IS IN 


ERROR WAS NOT IN THE DATA READ - 
ECC CORRECTION CAN’T BE PERFORMED 


THE DATA ERROR WAS NOT IN DATA TRANSFERED TO MEMORY. 


CONTENTS OF THE ERROR SECTOR (REPORTED ABOVE) 

IF oe IS SET toate SECTOR aes GAVE THE 'DCK’, ‘OTE’ OR, 
HARD” 0 A ee K error IS PRINTED: THE 

CONTENTS OF THE SECTOR POL iW THI 


ORDERS: WWW ERRORS: X WROS XFR: YYYY WRDS READ: 2222 


THIS IS THE LAST LINE PRINTED FOR ALL NON-POSITIONING 
TYPE ERRORS. 


"ORDER Be 53 THE TOTAL NUMBER OF COMMANDS GIVEN TO THE DRIVE 
WHICH REPORTED THE ERROR. 


‘ERRORS IS THE TOTAL ERROR COUNT FOR_THE DRIVE AND INCLUDES 
EVERY ERROR DETECTED, REGARDLESS OF TYPE. 


art re IS THE TOTAL NUMBER OF WORDS WRITTEN AND READ BY 
THE ORIVE. 
*WROS READ’ IS THE TOTAL NUMBER OF WORD READ BY THE DRIVE. 


ORDERS: WWWid TOTAL SEEKS: XXX TOTAL POS ERR = YYY TOTAL SKI, OCYL ERR = 
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THIS IS THE LAST LINE PRINTED FOR ALL POSITIONING TYPE ERRORS. 


ORDERS’ IS THE TOTAL NUMBER OF ORDERS GIVEN TO THE DRIVE WHICH 
REPORTED THE ERROR. 


gore SEEKS" IS THE TOTAL NUMBER OF SEEK OPERATIONS PERFORMED 
*TOTAL POS ERR’ IS THE TOTAL NUMBER OF POSITIONING ERRORS WHICH 
THE PROGRAM DETECTED FOR THE DRIVE. 

"TOTAL SKI,OCYL ERR’ eis THE TOTAL NUMBER OF ‘SKI’ OR ‘OCYL’ ERRORS 
SIGNALED BY THE DRIVE 


PROGRAM DESCRIPTION 


PROGRAM OPERATION 


PARAME ETE SARE CLEARE za 20 OR Th ArT BLIGE. a ap ARE 
UNDER ERATOR SHE "ENTRY, CON CON ot ARE ence ro VALIDITY AND 
CONSISTENCY. RH11 INTE a ‘” TTY. KE EYBOARD 
INTERRUPT E E is SET, HeKiL=L FOR Kin i-P jen’ CL ss Kee ont STARTED. 
WHEN THESE AC HAVE’ ern CORPLE D, THE PROGRAM 

ay he pahaahen COMPLET COMMAND ENTRIES WILL NOW BE Be ACCEPTED 


THE PROGRAM SCANS ITS INTERNAL ASSIGNMENT TABLES, LOOKING FOR: 


it ice ASSIGN/ = 
Y OUT REQUESTS 
ont INITIATION, BUFFER ASSIGNEMENT, 


Roe caer C 
4) DRIVES Cc ETING CURRENT OPERATIONS. 


LECT 
THE PROGRAM CONTI SCANNING ITS TABLES UNTIL AN ENTR 
IN THE CASE OF OTHE PROGRAN ana IHITIAL i the PRCT 
MADE BY THE OR WHEN A DRIVES 12 AEStGNED (*7? AND } . 
DRIVE IS ASSIGNED THE | KEYBOARD ENTRY ROUTINE VERIFIES THAT THE 
S AN RPOY 15.0 INE. THE ASSIGNMENT ROUTINE 
Abin PRESET” SRA TRUST ON, Nsote "FMToe’, AND ISSUES 


- oe 52" SEFRET ER" AN SELEETEERERS MATES 
AF R 






S FOUND. 
RY WILL 


S ASSIGNED. IF 
NEO BUFFER 
SELECTED PATTERN. OENAITE CH RDERS ARE 
ITE ITE CHECK ORDE E 

F The. PRECEEDING WRITE OR ER. ) 

HE COM IATION ROUTI 


wDw 
BO Zam 

Zz 

v 

D 

w 

m 


N nour Ne FIRST LOOKS AT THE CYLINDER ADDRESS OF 
ON. IF THE DRIVE MUST SEEK TO ANOTHER CYLINDER 


+4 od omit S| DAO 
- 
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PERFORM ee + ol od vg, tender” RAM ISSUES A SEARCH Ons EARL TER 
TO Mi aah Ss 3 CTOR WHICH 15 8 rads EARLIER 
rHen tt TTRANSEER® SECTOR: mS H 5. “PRESENT DR Ar al ROTHER 
He Bttcees BRTE Teo Scee sete Stone ped 
one ye FINOS ne # Gey" “SECTOR ANG N TERRUPTS, 7 THE PROGRAR READS 
UsebiGS PE RoE Lonr ar HEB UMW HORI RE BELT Secon 


YLINDER, THEY ARE ALSO CHECKED. THE 
D R'TO THE DRIVE NEAREST ITS 
CTED WILL HAVE 
LECTED FOR TRANSFER 
REVOLUTIONS OF ITS 0 SK IVEN PRIORITY OVER 
NOTE be N ON CYLI As 
A 


WHEN T TA TRANSE R ON IS COMPLETE, THE DRIVE REGISTERS 
ARE STORED AND T nied Is inffiateo FOR A WAITING DRIVE. 
SA Vv 


as oes eh TO VERIFY THAT eT Fhe RHI 1 GUS AGORESS: 
p 7 REGI Pe ug fad #5 10 Wert Y THA Ay i 
cise E THAT THE He Tw err 
Riv 


T 

O RE 

CORRE TENT WIT H OTHE F THE BER WA A ORDE 

Ae Set IS Cc N THiS LE ue COMPLETED, THE D 
RET eer AS 5 eit Inact ACTIVE LIST. THE PROGRAM THEN 
TIATES A DATA TRANSFER WAITING DRIVE AND RESELECTS AND 

NITIATES ANOTHER OPERAT ON” ON THE RELEASED DRIVE. 
N F 


RE 
ORS WHICH OCCUR PROCESSED IN THE FOLLOWING onpEn: MULTIPLE 
RORS WILL BE REPORTED AS THE FIRST ERROR TYPE CHECKED 


ERRORS REPORTED FOR OPERATIONS WHICH HAVE NOT COMPLETED NORMALLY. 


PERSISTENT ee ONDITION -_EMi2 
UNCORRE ECTaeL HAS porary ERROR - EM10 
PATAL ras RoSeus PART PARI 


re ae ETED, Wi WITHIN, TIme LIMIT - EM13 
UNIT WENT OFFLINE = 


B. ERRORS REPORTED FOR OPERATIONS WHICH COMPLETE NORMALLY. 


DRIVE” TIRING ERRO “ERROR - - = Ense 


pare i ae 
rp ps al W ATT Dok SET - EMee 
a3 EMe0 
EMe6 
EMeS, EM27 
DETEC 5 noes = Ehies, ERROR - EMS] 
Paocran INCOMPLETE OR OFF CYLINDER ERROR - EMSO 
WRITE wy Sse CK’ SET - EMe3 
RH11 OR UNIBUS TRANSFER ERROR - EM4O 
OPI’ ERROR - EM31 
PAR’ ERROR - EM33 
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8.3 


03 
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? 10:5 


"WCF? ERROR - £ 
I : Enron - Ens 


RROR - EM36 
MISCELLANEOUS DRIVE ERROR - EM30 
C. ERRORS NOT FLAGGED BY THE HARDWARE ERROR DETECTION LOGIC. 


BUS ADORESS OR WORD ag pa nCorae ce - EMY 
DATA COMPARE ERRORS - DRIVE § RROR DETECTED - Er2 
CAN’T MATCH DATA reat HA CTERN coe 
ERROR BIT(S) SET NO TERROR SI ED BY STE RH11 - EM44 
ECC LOGIC FAIL EM4S 
BUS ADDRESS OR. WORD COUNT NOT CONSISTENT - EM46 


DUAL PORT OPERATION 


UAL PORT nOBERATION IS NEARLY IDENTICAL TO THE OPERATION DESCRIBED 

i N*SECTIO ‘ THE BIFFERENCES ARE IN COMMAND SEQUENCE INITIATION 
R" T RMINATE 

WHEN THE DUAL PORT R ROUTINE IN THE TIORIVE PROGRAM RECEIVES 
A REQUEST FOR A DRIVE, THE PROGRAM PRIFTES THA THE DRIVE IS 
ONLINE . T IVE Is SELECT D AND_O’S WRITE! INTO ’RPDS1’: 
IF I ° IN HIS WILL StI — THE ORIVE. IF THE 
ORIVE I one BY THE OTHER T 1 INTO *RPDSI’ WILL SET 
*PORT REQUEST’. THE ine A’ IN ’RPCS1’. IF THE DRIVE 
IS AVAILABLE AS ICA car y SHE "DVA’ BIT, THE COMMAND SEQUENCE 
WILL BE INITIAT NT MANNER ae SECTION 8.1 ABOVE). 
IF "DVA’ WAS NO iP et ne fre Ms Y FOR THE DRIVE 
IN AN INT *PORT RESe 
ROT Sart D "ee ae ey i id ight ie CORD INTERVAL 
HE PROGRAM #9 RR ¥ 


more 
On 
; 
a 


T ed 
ie Be . T OR. _NORMALL 
ri Fk a PORT CONTROL 
C IN THE ab im RTAIN CONDITIONS 
-G. esee x NOBLE OTHER 5 THE 
ON_A MOD Y) i os 21 O PROCESS THE DRIVE 


po 
RAT THE Orn Re Y’ fen iT bln i ALL fen (i Te Maree ag THE SPORT 


RELATED E 5 
AFTER A ORI HAS C ETED AN OPERATION THE PROGRAM WILL STORE 
THE REGT T 1S A rhea E’ TO THE ORIVE THE OPERATION 
TERMINATED WITH AN T ve WILL NOT BE het Easen UNTIL 
RROR PROCESSING HAS GSEN COMPL 

POR 


SINGLE Ter lees. I nitice 
ARE IN NEUT BY T lt Faas? BY THE OPPOSITE PORT ARE STILL 
ORT ORIVES HAT RELEASE COMMAND IS_ ISSUED 
ORMAL ORDER PROCESSING 0 THE END OF 

RELEASE COMMAND ISSUED UNDER THESE CONDI TIONS HAS NO FUNCTIONAL 
EFFECT ON THE OPERATION OF THE DRIVE. 


SELECTION OF OPERATION VARIABLES 
A. SECTOR ANDRESS SELECTION IS RANDOM BETWEEN THE VALUES IN 


ERROR PROCESSING. 
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w~< 


Zomm= 


+ 5 9 they alee En’ roe Meaty 
ECT ION Mi RA ry BET . 


mez 
Om 
w 
ms 
2. 
ae 
» 4 
z+ 
2 


Su 
, mh 
hor. 
2: 
S 
w 
wun 
< 


WSs owes 
2S 
e 
£ 
my) 


Sem 
“mi 


eR 1s SOUL IEE ile 5 Pt 
AT LEAST 


ATA AREA OF THES LAST 
TOR. THIS Is NECESSARY AS 


z 


IN THE. pata PORTI TOR Te WBE TO HATCH oe bate 

1S ABA PFERN POR BATA COMPARISON PURPOSES, 

C. THE DATA WRITTEN IS RANDOML ¥ uBEbECTED AMONG THE 1S STANDARD 
PATTERNS YWORDS IN R (WHEN PERFORMING A WRITE 
HEADER & DATA HE ABE ROE FILL THE PROGRAM EXPECTS TO 
FIND RuAT THE KEYWORDS 


D. THE cT WRITE CHECK DATA WRITE 
CHECK Re pate ar FS) ARE PERE ORMED ONLY 4 APREV TOUS 
T SEL 


: 


ORDER WAS APPROPRIA ES DA 
THE PROGRAM WILL NO 
WRITE CHECK FOE Rta ORDER FS: FER. ZE_ IS FORCED T 
260 (10); T PROSRAN WILL hot BER DRE A AOE TIoSECTOR FORMAT 
WRITE OPERATION. 
F 


E. THE FIRST ORDER PERFORMED AFTER A UNIT IS ASSIGNED WITH 
’T’, *W?, OR *R’ COMMAND IS NOT RANDOMLY SELECTED. THE PARAMETERS 
FOR’ THE FIRST OPERATION ARE THE MINIMUM OR STARTING VALUES OF 
THE VARIABLES. 

DATA PATTERNS 

HE PROGRAM SELECTS ONE OF THE FOLLOWING DATA PATTERNS TO WRITE 

WHEN A WRITE R IS SELECTED. THE ENTIRE BUFFER IS FILLED WITH 

THE LECTE PATTERN. N DATA IS READ FROM THE DISK, THE PROGRAM 

COMP A SECTOR wBGSIS: FROM THE FIRST 4 DATA’ WORDS OF 

EACH SECTOR, THE PROGRAM MA TCHES TH THE DATA T ONE OF THE FOLLOWING 

PATTERNS. fO TAIN COMPATI LIT Y WITH PACKS TTEN BY THE FORMAT 

(MAINDEC~11-O0ZRJB), T PROGRAM WILL ACCEPT ALL ZERO’S AND 
AND ALL ONE’S PATTERNS: HOWEVER, ALL ZeRO’S AND ALL ONE’S 


AN 
PATTERNS ARE NOT WRITTEN BY THE " EXERCISER PROGRAM. 
PATTERN ’8’ IS DEFINED AS THE "WORST CASE’ PATTERN. 


1 
000003 177774 OO0000 O0104el S 007417 Oe64SS 133333 
000007 177770 O00000 Oeld4e OSeSeS 007417 Oeb4SS 165555 
000017 177760 177777 031463 leSeSe 170360 151322 133333 


HO3 
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000037 177740 177777 O42104 125252 170360 151322 165555 

000077 1777 27777 Geis 1 70360 13 : 133333 

000177 177 000 14 1 4 165555 

Bps7> | 1990 ee 104810 1 tyaaeo eiaee leeeee 

Boo 999 176 177777 114631 1 17 151320 1$3333 

003777 174000 090000 lesese 052525 007417 Tere 1g5855 ; 
13999 tep00 tae3ia AESE3e goat? Asdaee jeeeee 

3 14 77777 1567 70360 13 133333 

GTeeee hppoee feeene iste Eeses eae ties 1e3ss 

177777 i 177 i i 1513 133333 


000001 17778 1 077777 15333. 77777 
177 1SSSSS 137777 177772 0000 
000004 AEG 1 157777 33 177777 0 
l 17778 1 1 77777 
177787 1 173777 1 3 177777 00 
000040 177737 1SS5SS 175777 066667 177777 00 
900408 177677 12 176777 3 77777 
DO 177577 1S 177377 77777 
0004 177377 172666 177577 153333 177777 000000 
001 176777 13 SS 177677 2 1277777 Of 
002 1 1 177737 3 1777772 000000 
004009 173777 1S5555 177757 177777 Q00000 
010000 167777 172666 177767 153333 177777 Q00000 
Oe0000 157777 iSS55S 177773 6667 177777 000000 
040000 137777 172666 177775 153333 177777 QQ0000 
100000 077777 155555 177776 066667 177777 ~QO00000 


PROGRAM LISTING 


= 
e wo 


1779 
177} TITLE. CZRJDCO, RPOY/S/6 MLT-DR LGC 

1772 s aCOPYRIGHT (¢)' 197 

1773 *DIGITAL EQUIPMENT SRP. 

1775 SRAYNARD, MASS. 01754 

- ~ 

1776 { SPROGRAN BY C. HESS 

i778 tETHIS PROGRAM WAS ASSEMBLED USING THE POP- 11 MAINDEC SySMAC 
1278 ; #PACKAGE (MAINDEC-11-D2QAC-C3), JAN 19, 1977 

1261 ‘Serr OPERATIONAL SWITCH SETTINGS 

i763 :# SWITCH USE 

1784 st  jseeeese ji 8 saeeereseoeoeeseses= 


Ono 
0 


tut. 
= BB be = b= 8 Bo Bee be Bo Bo B+ = Be he Bs Bo be Bo Bo be he Be Be hs be he pe Be Be bs Be Bo = bs ee be Be ee ee ee 33 


WWMM OW MO WMO MOM MOO WOM MMM MMMM MMMM MMMM MO MMMM MMMMMM IIIs) ae 
—-OOO ITV raat ite OwWOONM 


FOCI WI WGI LILI LI GI GITOTUTUPUPUPUTU PU PUT b&b bs TUK OB PRE ee eR SS WD LOQORe 99 


OWDNO WS O“YONOUN LW OWO NOUS lot OWONIMU Llu) 
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S-DEC-77 10:58 OPERATIONAL SWITCH SETTINGS SEO 9034 
;# 15 HALT eft RROR 
: 13 NHIBIT ERROR TYPEOUTS 
3% 10 Frit 
i ? a ae, ne TERS. (E 
;* S DON ON PRESENT VALUES) 
:# S A. rat LAL. ea Slee! IF ERROR 
+ # B. ULTS BISPLAYED IF ERROR 
:# 4 A. Bo BO ® hot oh RROR COUNTS 
3 B. Bt CK’ TERT REPS ERROR 
;* ° s 
:#* B. BY srt Sec OR ETB KE “tpexr "eblEctaar: AF TER 
3.3 
te c. 1F ope Te CO con ERROR & SW7 SET, DISPLAY 
:# RENAINOE 
;# é A. DON’T TYPE PAGE STATUS WHEN PROGRAM STARTED 
;* B. DON’T T PERFORMANCE SUMMARY 
: 1 INHIBIT DATA COMPARSION AFTER READ ORDERS 
:# 0 READ ONLY MODE 
"SBTTL BASIC DEFINITIONS 
*INITIAL ADDRESS OF THE STACK POINTER *## 1100 ### 
001100 étack= 1100 
“EQUIV EMT, ERROR ;;BASIC DEFINITION OF ERROR CALL 
"EQUIV IOT!SCOPE ::BASIC DEFINITION OF SCOPE CALL 
5 AMISCELLANEOUS DEF INITIONS 
000011 t= 330 FOR HORIZONTAL TAB 
900012 LF= i >:CODE FOR L NE FEED 
000015 CR= is ::CODE FOR CARRIAGE RETU 
009200 CRLF= 200 ::CODE FOR CARRIAGE RETURN-LINE FEED 
177776 ies 3z77ze !: PROCESSOR STATUS WORD 
177774 STKLMT= 177774 ;;STACK LIMIT REGISTER 
177772 PIRG= 177772 ::PROGRAM INTERRUPT REQUEST REGISTER 
177570 DSWR= 177570 :tHARDWARE SWITCH REGISTER 
177570 DDISP= 177570 : :HARDWARE DISPLAY REGISTER 
#GENERAL PURPOSE REGISTER DEFINIT ON 
o00 hoz %0 ; ; GENE GISTER 
000001 Ris “1 ::GENERAL REGISTER 
000002 R2= %2 ::GENERAL REGISTER 
900903 R3= “3 ; GENERAL REGISTER 
relate Res ie 1 TEER REGISTER 
O0€ Re= “6 + BENE RAL REGISTER 
000097 R?= “7 :: GENERAL REGISTER 
9000G€ SP= “%& ::STACK POINTER 
000067 PC= “7 : PROGRAM COUNTER 
*PRIORITY LEVEL DEFINITIONS 
coococ bros 9 ;;PRIORITY LEVEL O 
600040 PRi= 40 ::PRIORITY LEVEL 1 
900100 PRe= 100 :: PRIORITY LEVEL 2 
000140 PR3= 140 ::PRIORITY LEVEL 3 
o0de00 PRY= 200 PRIORITY LEVEL 4 
So0e4S PRS= 240 ::PRIORITY LEVEL 5 
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-#" SWITCH REGISTER” SWITCH DEFINITIONS 
BIT DEFINITIONS (BITOO TO BIT1S) 


Toros mu 

ee ee ee eo 

aaa 23 33 aannaman 

S00 aaa WATT S000 TON ons 

Ss5 O00 oo8 asses Ssoscoco0 QO0000000 

O00 O0O000CGC0O000 Oo0000 8228 eee 

or oo QO00000000 2g QONO0000000 nlenlanlenlenlanlenlanl 

om =F B8S8888o00, 2a - FUNK TUATUST VY -OMOOOOOMOwM 

>>>>>>>>>> aH oe HER KMNKHKHNnHnKnHnKnhnhKnhoe SSS SSS > 

HUHNE RRR E-mu =o DUNT MU AQ te tee 

“uu WT MU-—OCOK 7 ON=SAaaaa aaaaa on kon ken hen hen hen! ON0000002D727272322259N 

wor AA OOD 29999 oe > bbb OO OO0080G 

co 33232332 Rik Rid | eee terserer rier ter St lanlanlenlenlanlanlanlenlenlanlanlanlanlantanl Viet e erty levity 

o0. MMNMNMMMIMNUIMUNUMUMIMUIUIUD «= + + se ee ew “MOODMDOOMDMOMMMMMMMOM:--+:+++:. 
i] ] oo000TtM-- o00 oo00oTtu- 
SF Seag0q9ggGggertsO00 stetatatatatet=fa=tepaitetetets} 
mm Re OTA RERESS SRQIOGCT =0O00000 
88 Sru-oooSoSeo00go sEditeteletstalstetatatetstets: 
oo et Si betstatatatatststatatstetet et tStatatatststststatststets) 

“UOT NwoOr-OVro-+ ae 9 MOTWWOKWMMCO-UMNTWW DKOOAUMNTWNW OCO-UMTinw 

TIFIFIFTFIFIFITw Wf arh inw.o 22 Pe ee a EE FF ee EF fg a a a ah a 

2OOOOO® aepeepesaaen epepeneD DODO ODODODNDOMDOODNDHDOMDODMDOOOOODOODOWODWNWMOOWA 
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C2RIDC.P11 1S-DEC-77 10:58 BASIC DEFINITIONS SEG C036 
1897 -EQUIV BITO1,B8IT1 
1G -EQUIV BITOO,BITO 
1900 *BASIC “CPU” TRAP VECTOR appne sas 
1901 4 REVERS 4 i31 OTHER ERRORS 
190e 000010 SVEC= 10 $3 DA ILLEGAL INSTRUCTIONS 
1903 0000:4 Tet tvecety 33). qt 
1904 0014 T = 14 ii OE OO tiT 
1905 0014 BPTVEC= 14 35 POINT TRAP (BPT 
1906 IOTVEC= 20 a T/QUTPUT TRAP (TOT) ##SCOPE ## 
1907 000 PWRVEC= 24 R roll 
19908 000030 EMTVEC= i | EMULATOR RAP (EMT) ##ERROR#* 
19093 000034 TRAPVEC=34 bay a 
1910 000060 TKVEC= 60 y yee 
1911 000064 TPVEC= 64 Thy INTER VECTOR 
13is 000240 PIRQVEC=240 5 ne INTERRUPT REQUEST VECTOR 
tate 5 5 RSARAAASSAAAE AAA AAAAALALREAAAAAAELA LAA AAARRAAA LAA ALAA LALLA AARAE 
13i8 -SBTTL RH11 REGISTERS 
1318 s ; SHRRAKAEREAERE RARER AEA ARAL REAELAAARARLLARAARRARRARAAARRAALERAELER 
i350 ;CONTROL AND STATUS REGISTER 1 (RPCS1) 
1922 000100 IE= 100 ; INTERRUPT ore (BIT #6) 
1923 000200 RDY= 200 ;READY (BIT 
1924 000 Alb= 400 ;HIGH ORDER is ADDRESS BIT Corr #8) 
1925 001000 Al7= 1000 ; HIGH R_BUS ADDRESS BIT (BIT #9) 
1926 002 PSEL= e000 ;PORT SELECT (BIT #10) 
1927 0 MCPE= 20000 5 RS SBUDS PARITY ERROR (BIT #13) 
1928 040000 TRE= 40000 TRANSFER ERROR (BIT #14) 
1353 ;SC= 100000 SPECIAL CONDITION (BIT #15) 
1931 ;WORD COUNT REGISTER (RPWC) 
1236 ; (EACH BIT IS CALLED BY BIT NUMBER) 
1934 ;BUS ADDRESS REGISTER (RPBA) 
ei ; (EACH BIT IS CALLED BY BIT NUMBER) 
1338 ;CONTROL AND STATUS REGISTER 2 (RPCS2) 
1339 O00000i US1= 1 ;UNIT SELECT (BIT #0) 
1940 90000e USe= e sUNGT LECT (ett #1) 
1941 000004 US4= 4 sUNIT SELECT (BIT se) 
1942 000010 BAI= 10 ;BUS ADDRESS INCREMENT INHIBIT (BIT #3) 
1943 Boones PAT= 20 ;MASSBUS PARITY TEST (BIT #4) 
1944 00040 CLR= 40 ;CLEAR (BIT #S) 
1945 000100 IR= 100 5 SN UT ayn “ort #63 
iS4E 000208 OR= 200 ; OUTPUT Y (BIT #7) 
1947 000400 MPE= 400 ;MASS BUS PARITY ERROR (BIT #8) 
1948 001000 MXF = 1099 UL RRER. TRANSEER RROR (BIT #9) 
1949 ©0000 PGE= 2000 ; Saar (BIT #10) 
1950 004009 NEM= 4000 ; NON EXISTENT MEMORY (BIT #11) 
191 010600 NEO= 10000 ;NON EXISTENT DRIVE (BIT #12) 
i9S< 020000 UPE= 20000 ;UNIBUS PARITY ERROR (B1T #13) 


ESRIDC.P 


19S3 


id dita ta 


oO 
efor ever ist, 
EWN-Ow 


ee pried bate bets be] 
alton 


tnt es 


eats 


38333989 SOSRCSBR BRS OS OGG OOOO RR RR RESO RR RRR ES 
SRR EHO 


TOTUTO 8 0 
Bs 
Ste 


ae 
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RH11 REGI 

wes 40000 

OLT= 100000 

;DATA BUFFER REGISTER (RPDB) 


;WRITE CHECK ERROR (BIT #14) 
:DATA LATE (BIT #15) 


: (EACH BIT IS CALLED BY BIT NUMBER) 


5p RARSAASLALALAEKSEAE REEL LA REAEAAARELE LAA LL RAAKLAAAAERHALAAALAKE 


-SSTTL RPO4/S/6 REGISTERS 


5 5 RASRAERAREA AES EEAEASAASA ALAA LALLA EALERAALARAKLLASLAERRLAARAEAAAAES 


;CONTROL AND STATUS 1 REGISTER. 


( #00) 


saaser 


8 


ge 5 
a~ 
a 


a es 


SEC. T #0) 
F 20"/SEC. (BIT #1) 
TO R_GUARD BAND (BIT #2) . 
(BIT 83) 
F 
F 


g 
NC S THAN 64 (BIT #4) 
NCE EQUALS 1 (BIT 4&5) 

‘e #6) 


elevate) 


BRBS > 
P| 
rh 
Pati 
<H 
z 
+4 
o~ 
[ea] 
bg 
“ 
s=~_ 
@ 
-— 


(BIT #9) 
TRANSFERRED (BiT #10) 


1 

T #12) 

ion IN PROGRESS (BIT #13) 
#14 

B #1 


D-- N- 


D 
BmaPmo DS 


= 


GO= 1 

Fl= 2 

Fe= gy 

F3= 10 
F4u= 20 
FS= 40 
DvA= 4000 
;ORIVE STATUS REGISTER (RPDS1) ( 
;OFS= 1 
OFF2G= 2 
DIGB= y 
GRV= 10 
DL64= 20 
DE1= 40 
VVs 100 
DRY= 200 
DPR= 400 
PGM= 1000 
LST= 2900 
WRL= 4000 
MOL= 19000 
PIP= 2000 

= 4000 

ATA= 100000 
;ERROR REGISTER #01 (RPERI) (#02) 
LF= 1 

LR= 2 
RMR= 4 
PAR= 10 
FER= eo 
WCF = 40 
ECH= 100 
HCE= 200 
HCRC= 400 
RCE= 1000 
IRE= 2000 
WLE= 4000 
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RPO4/S’6 REGISTERS 
OTE= 10000 


ee: | SR 
= 4 
CK= 1 


;ORIVE TIMING ERROR (BIT #12) 


SEINE Uaek aC aS (BIT #13) 
A CHECK (BIT 15) 


;MAINTAINABILITY REGISTER (RPMR) (#03) 


aCe Ke 


MetcK= J fo 
ee 280 


;ATTENTION SUMMARY PSEUDO-REGISTER (RPAS) 


ATl= 2 
ATe= 

AT3= 10 
AT4= 20 


;DESIRED SECTOR/TRACK ADDRESS 
; (EACH BIT IS CALLED BY BI 


tae MODE (BIT 
LITY CLOCK 
LITy x 
i NTA LITY OR 
LITY READ ¢ 
i Y 
LITY 


MBE 


(804 
;DEVICE O (BIT #0) 
! DEV (BIT #1) 
; DEV (BIT #2) 
pe (BIT #3) 
iDE vice 4 (BIT #4) 
A (BIT #5) 
(BIT #6) 

(BIT #73 


SISTER (RPDA) (#05) 
ER) 


;ORIVE TYPE REGISTER (RPOT) (#06) 


grade 
TBBs 4 
TO3= 10 
Bigs= 8 
Toe: pp 
be 
ee Ba 
NBA= 138950 


EXTl= 1 
2 
re} 
10 

BxTAO= 20 
18 
160 
206 
400 


SAA 
AA 4 
WONMOW.cWMe- 


Baaasaas 
= 


3) 


DR 
BM Mast 
‘NOT BL 


mmm—+4+4444— 


oe 


RED (BIT #11) 


OT BLOCK ADDRESSED (BIT #15) 


SES 0038 


CZRIDCO, RPON/S “OI TIOR LCE, ACYL see eye REGISTERS spiete tet SEQ 0029 


Ss 1 = sSECTOR COUNT FIELD 3 ‘(BIT #9) 
066 83800 eek8= 3880 + SEE TOR SUNT FIELD 3 BH Sid 
ited is 4 3 K FIEL #11) 

O68 i TRK2= > TRACK FIEL (BIT #12) 

206 TRK4= : TRACK FIEL (BIT #13) 

2070 04 TRK1O= 40000 :TRACK FIELD 4 (BIT #14) 

2071 100060 TRK20= 1 : TRACK FIELD S (BIT #15) 

2073 :RPOY ERROR REGISTER #2 (RPER2) (#10) 

2075 000001 Wwou= 1 ;WRITE WGUBRENT UNSAFE (BIT #0) 
2078 90000¢ CSF= 2 ; SINK FAIL (BIT #1) 

04 WSU= 4 : WRIT CT E (BIT #2) 
=38 eos ae iGOTOR SeSubnce Pea" ST et 
2080 Rune TOF = 40 i OAS TT NET CTOR FAILURE (BIT #5) 
2081 000100 TUF = 100 ; TIONS E (BIT #6) 

2082 FEN= 200 iF ATL ob (BIT #7) 

2082 Sune WRU= 400 WR Y 5 (BIT #8) 
001000 MHS= 000 MULT HE LECT (BIT #9) 

208s 002000 NHS= 000 : aSeLE T (BIT #10) 
904000 IXE= 4000 : INDEX (BIT #11) 

2087 010000 VU30= 0000 : LT UNSAFE (BIT #12) 

2088 020000 PLU= [ale) ; IT #13) 

e089 160000 ACU= 100000 :AC UNSAFE (BIT #15) 

2031 ;RPOS/6 ERROR REGISTER #02 (RPER2) (#10) 

2093 000001 WCU= 1 ;WRIT CURRENT E (BiT #0) 

2094 CSF= 2 Cc NT SINK FAILURE (BIT #1) 
000064 WSU= 4 * WRIT T UNSAFE (BIT #2) 

2096 000010 cSu= 10 7c N TCH UNSAFE (BIT #3) 

2097 000020 RAW= 20 ?READ I Te (BIT #4) 

2098 900040 TOF= 40 :T iT TECTOR FAILURE (BIT #5) 

2099 000100 TUF = 100 T T obiteare (BIT #6) 

2190 000200 ABS= 200 : 93 (Bir #7) 

2101 00 WRU= 4 :WRI Y UNSAFE (BIT #8) 

2102 001000 MHS= 1000 >MUTL EPL HEAD SELECT (BIT #9) 

2103 CO = 2000 :NO_HE LEC 19N (BIT #10) 

2104 004000 IXE= 4000 : OR (BIT #11) 

e105 020000 PLU= 20000 ?PLO AFE (BIT #12) 

sike ;OFFSET REGISTER (RPOF? (#11) 

2109 000001 OF25= 1 ; OFFSET MICRO INCHES (BIT #0) 

2110 ode OFSO= 2 : OFFSET ge MECRO INCHES (BIT #1) 

2ili 000004 OF100= 4 :OFFSET 100 MICRO NCHES (BIT #2) 

2ile 000010 OF200= 10 : OFFSET MICRO NCHE (BIT #3) 

2113 000020 OF4O0= 20 :OFFSET 400 MICRO INCHES (BIT #4) 

ells go0040 OFS00= 40 ‘OFFSET 800 MICRO INCHES (BIT #5) 

211s 00200 OFREV= 200 :OFFSET NEGATIVE (REVERSE ) (BIT #5) 

elle , 002000 HCI= 2000 *HEADER COMP: INHIBIT (BIT #10) 

2117 004000 ECI= 4000 *ERROR CORRECTION CODE INHIBIT (BIT #11) 

2118 010000 FMT22e= 10000 :FORMAT BIT (BIT #i2 

2120 ;DESIRED CYLINDER ADDRESS (RPCA) (#12) 


O00 


PLM SS 


N 


ru 


MUNN coe ce OTTER ER EE EE Soe 
U1-LWTOr- OW NOUN LPO OD I LOMO DR IRAE OMe Se 


rorororororurorurorururerorurorurorunororurerururururururururuferurururorutu 
PN eS bh NY Ld: 


me ee ee he ee ee a a ee pe a a he he hh hh he eh 


NNNNANNNO® 
Murciwnr--Owo 


Oe, 


“3 


Tete TFBS) MAYM SRGRIE/, ABcPS fens 1709 PAGE mete 


; (EACH BIT IS CALLED BY BIT NUMBER) 


; CURRENT CYLINDER ADDRESS (RPCC) a 
; (EACH BIT IS CALLED BY BIT NUMBER 


; SERIAL NUMBER REGISTER Spat ad —— 
; (EACH IS CALLED BY BIT NUMBER 


;RPO4 ERROR REGISTER #03 (RPER3) (#15) 


ietelee vor= 8 greet UnPe (BIT ml” 

000010 = 10 UNSAFE Exe PT READ-WRITE (BIT #2) 

o90040 ACL= 40 AC LOH OME #5) 

600100 B¢L= 100 € COw (BIT a? 

040000 SkI= 40000 pet INCOMPLETE (BIT #14) 

100000 OCYL= 100000 : OFF CYLINDER (BIT #155 

;RPOS’6 ERROR REGISTER #03 (RPER3) (#15) 

000001 pcu= 1 50C E (BIT 89) 

ooo002 wAd= 2 ‘WRITE AND OFFSET (BIT #1) 
0940 acl= 40 jC LOW (BIT #5) 

000106 D¢cL= 1 :DC LOW (BIT #6) 

eiuteterd ore: = «SBono PER TACOMPLETE Cort aide 

100000 OcYL= 100000 OEE CYLINDER ERROR (BIT #15) 


hed: POSITION REGISTER (RPEC1) (#816) 
(EACH BIT IS CALLED BY BIT NUMBER) 


sE0e PATTERN REGISTER (RPEC2) Sate 
(EACH BIT IS CALLED BY BIT NUMBER 


2p RERAEAAS RELA AAER EAE SSR AERA ER LARAR AREA ARAL AARKA SAHARA RAAKAARLAR 


-SBTTL RPOY/S’& DRIVER COMMANDS 
5p REESE LEER EE EERE EEE EEA EERE ERE ER AREE HEEL REE 


000101 RNOP = 10i ;NO OPERATION 

000103 UNLOAD = 103 rage 

000105 SEEK = 10S 5 BEEK 

000107 ECAL_ = 107 ;REC + pe 

000111 ORVCLR = 111 REL EASE CLEAR 

000113 ELSE = il3 ; 

900115 OFFSET = 11S 39 

000117 Te = 117 yaa TQ CENTER LINE 
000121 READIN = lel ;READ IN PRESE 

000ie3 ACK = le3 ;PACK ACKNOWLEDGE 

000131 EARCH = 131 3 SEARCH 

000141 GETREG = 141 ;GET REGISTERS 

006143 TFMT = 143 ;SET FORMAT (& ECI OR HCI) 
000145 LORV = 14S ; SELEC IVE 

000151 WOKD = 151 ;WRITE CHECK DATA 

000153 WCKHD = 153 ;WRITE CHECK HEADER 8 DATA 


Cc2R 
Cc 


rurururururururury rerururrur rurvrureruruururre BB 


TU TU bb oo ee 


ey _— /5°6 MLT-OR L 


‘J 
a 


scrpinchitere snes S 


wo 
~ 


Bw 


900128 
8 O176 


000200 
o00e04 


Cooo4e 
000052 


1S-DEC-77 ibe Se 


000137 004116 
000137 004106 


000210 
OO0046 
nee 
040000 
0002:0 


O04 


MACYIL BEANS DRIVER COMMANDS 


WRTDAT = 161 ;WRITE DAT 
ware . i 3 :WRITE SHEROER & DATA 
RHO = 154 REAR Pe HEADER & DATA 


.SBTTL TRAP CATCHER 


TER ANID, RERTIOUE ERY tuaeZ ROUTAN? 
HSCOGRTION O- CONTAINS. 0 TO CATCH IMPROPERLY LOADED VECTORS 
Suara “HERD 8 1 SOETMARE QLFFEA'ETERER 
ie Ine NS oeraRTI JUMP TO STARTING ADDRESS OF PROGRAM 
JMP aeSTART :EHANGE, THE HLL UnZBUS ADDRESS 
-SBTTL ACT11 HOOKS 


3 eee tree ee 
HOOKS REQUIRED BY ACTII1 


p ;SAVE PC 
SENDAD 5;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP 
"WORD 40000 ::2)SET LOC.52 TO 40000 
=$SVPC 8 


SEG 004) 
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C2RIDC.P11 1S-DEC-77 10:58 COMMON rade . SEG cO42 
2206 .SBTTL COMMON TAGS 
2208 33 REKRESKKERARARAESEASAKERAAAKAAALERERAARRARRAARARARKRHRRAAAAERAAAREE 
e208 j ATHTS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
2211 , 
gels 001100 1100 
2213 001100 SCMTAG $3 
2214 001100 oo0000 sPacs: .WORD O ti BONTAING Paes c inf 
e215 ObliGe O80 sreina: cevie 6 i Goaine Toe. TEST humoer 
2217 SB11G% gon0op Sieur, “Heeb 8 LSOMAING SOpTesT fenarzoy count 
sis HIS Seas secre: ise SSuaiNS afer Baaues GOH Etegt® 
ce iis ie en VROUANS Rie" GRiRe 8s fear 
e223 001116 000000 RRPC: 0 CONTAINS PC OF LAST ERROR INSTRUCTION 
gees 001120 990000 SGDADR: :WORD 0 +:CONTA SS OF ‘GOOD’ DATA 
5226 001124 000000 SOO e OT: ORD Og i i RONTRING PQb0BT para oS NTA 
2227 O0lle6 O00000 SBDDAT: ‘WORD 0 ; s CONTATNG *BAD’ DATA 
555 BDiize OBOODS “WORD OO afrabeacal i: Seactaisate: 
2230 001134 000 TOB: :BYTE 0 33 TOMATIC MODE INDICATOR 
e231 001135 0008 SINTAG: yTe : :: INTERRUPT MODE INDICATOR 
2233 001140 177570 : 35 
2234 O0114e i77570 Bt céLay WOORD paue, a 2 MECH REGISTER 
2235 OO1144 177560 TKS: 1 0 ::TTY KBD STATUS 
2236 001146 177562 TKB: 1 2 siTTY KBD FER 
2237 001150 177564 TPS: 177564 tiTTY PRINTER STATUS REG. ADDRESS 
38 oolies |’ Bee Swi: javier oO FT ON TRTAS MUL CHARACTER FOR FILLS 
5538 Boi tee 002 Srytté: : YTE 2 + Eonar 7 OF FILLER CHARACTERS REGUIRED 
cau BLES Bs oHe: Be oF  TOPRR dba Pena" att Er sBoves: 
2243 001160 177607 000377 . SBELL:  [ASCIZ (207><377><377> ;:c ER BELL Sete 
ee see CRI RETA Ce 
224% OO1166 oo0die SLF:  :ASCIZ «le +: LINE D 
a4 000015 jj Hnnnnbesassanssoennncannenmnennieesessscunsenensenanonsannanes 
2e49 0012 LF = 1 
e250 901179 176700 SREAOR: - WORD 16700 ;EIRST ADDRESS OF RH11/RPO4/S/’6 REGISTERS 
2252 001178 t tts SLKCSR: ‘WORD 172540 :ADOR OF KW11-P STATUS REGISTER 
sei BBiGE cers Sees: Heep dogs? IEE CULE et Ores 
cat BBE bocrss sirse. <tBee eget FABRE SE RHEL era ReaTSTER 
2257 001206 177777 PCLOCK: [WORD -1 :'O’ IF KWll-P IS ON SYSTEM 
eeSB 001210 177777 CLKFLG WORD -1 ;’0’ IF A CLOCK _IS AVAILABLE 
secs BBEIS $0988 arin: HEEB 8 TA AB sth Paria TaBfinfGe ©? TF 60 N= SvSTEN 
226i O0leleé oo00ccc PACK: :WORD :*W * COMMAND INDICATOR 





CZRIDCO, RPO4’S/6 MLT-DR Lac 
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2 001 000 

226 901 00000 

2264 1 oco000 

2265 O01 

2266 O01 

2267 O01 

5528 O01S¢8 BOD0BO 

se83 BB1Ee HE oon 

2272 001254 o00005 

ceri Gplees Bosoen 

2275 O0lebe 

2276 O0le64 O00000 

555 BotSee 

see teiers Baaaee 

seez Bbt806 "oc 

2283 

S eee 001301 poo 

2286 

22°87 001302 o00000 

2288 001304 o00000 

2289 O01 000000 

2290 001310 900000 

2°91 O013i2 o00000 

2292 001314 o00000 

2293 001316 000 

Se BELLS oot 

229% 001322 O00000 

2°97 001324 900000 

2298 001326 o00000 

2299 001330 9d00000 

2300 001332 o00000 

2301 001334 o00000 

2202 001336 000000 

2302 001340 o00000 

2304 001342 oo0000 

2305 001348 000025 

2306 1346 o00022 

2307 001350 Ss0063° 

2308 

2309 

2310 

2311 

2312 

2213 

2314 

esis 

ezle 

2317 oCOlzs2 ooe74G 


EO4 
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COMMON TAGS 


000000 
000000 


DATE: .WORD 0,0,0,0,0 ;OPERATOR ENTERED DATE 
OPERID: .WORD 0,0,0,0 oe gh 1D 
DRIVE: -.WORD 0 a) DRIVE AGE: ERRORS 1-S & 10 
TIN: :WORD O S ATTN Rice ‘ TORRGE : ERRORS 1-S & 10 
UNIT: [WORD O ORI VE & STOR FOR. PRINTOUT 
MASK: ‘WORD 0 + ERROR RY Rany'te MASK 
RETRY: <:BYTE 0,0 + ERROR TRY LIMIT IN THE LOWER BYTE 
*RETRY C HE UPPER BYTE 
FAIRNS: -WORD 3 : MAXIMUM ity. SALU 
LSTAD: :WORD 0 :ST LAST MEMORY RESS 
CHGAD : WORD : He RH11 TBUS ADDRESS FLAG 
BADSEC: :WORD 0 Bab Sect TRACE FLAG 
HOUR: WORD G i 78 Sto 9 HERE (MAXIMUM - 999.) 
SECOND; Z UE RONS’S OUNT STORED HERE 
SIXTEE: :WORD 0 : TIMER R TINE Cc TER (FOR ONE SECOND) 
ZROIND: :WORD -1 :ZERO INDICATOR FOR THE DATA COMPARE ROUTINE 
FRSTER: .BYTE 0 :DATA COMPARE ERROR FLAG 
i TE > g, S ING ’DCKER’ OR CAN’T MATCH PATTERN 
IF < arose ARSION FOUND 
-BYTE 0 :MISCOMPARSION OR CAN’T MATCH PATTERN FLAG 
i JE < g E IN BUFFER 
SAVERI: .WORD 0 :SAVE RI HE 
SAVERS: .WO 0 : RS HERE 
ERCTR: -:WORD 0 :N R OF ERRORS 
LIMIT: :WORD O :DISPLAY LIMIT 
CMCNT: -:WORD 0 :WORD COUNT 
MCYL: - WORD 0 i CYLINDER ADDRESS 
CMSEC: ‘BYT 0 SE ss 
MTRK: .BYTE O : TRACK ADDRESS 
ECBIT: [WORD O ; ERR T BIT OFFSET 
ECSEC: :WORD 0 ERR T WORD OFFSET (RELATIVE TO SECTOR) 
ECMSKO: :WORD 0 :CORRECTION MASK FOR FIRST ERROR WORD 
ECMSK1: 0 0 ; CORRE TION MASK FOR SECOND ERROR WORD 
ECWRD: OR 0 :LOCATION OF FIRST ERROR WORD 
CGD: 9 :GOOD DATA, FIRST WORD 
€BADO: :WORD 0 :BAD DATA, FIRST WORD 
ECWRD1: oe :LOCATION OF SECOND ERROR WORD 
ECGD1:  :WOR 0 :GOOD DATA, SECOND WORD 
ECBADi: <W 0 :BAD DATA OND WORD 
SECLMT: .WORD 1. :SECTOR ADDRESS LIMIT 
TRKLMT: :WORD 18. ; TRACK ADDRESS LIMIT 
CYLIMT: :WORD 410. :CYLINDER ADDRESS LIMIT FOR RPOY/S'S 


: CCHANGED TO 814. FOR RPO6) 

5p ERE EERE EEE ELAR EERE EE ER EERE E EERE 
-SBTTL COMMON PARAMETERS 

5 ERR AE ERE REE EERE REE EE EER EAE E REE ERE REE AE EEE RERAE EEE EE 


;PROGRAM USES THESE PARAMETERS " Fg Beat REGULAR END OF PASS 
ENOCN: .WORD 002740 -875xX10t8 WORDS (10) [3X10t9 BITS) 


SEG 0043 


WI) Cate 


horure 
twee 


vs 
He eh nn 


rurororurorororore 
WWWWWWWWW 
IE ye a 
Wr OWONOW 


FO4 
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Pll S-DEC-7 COMMON SEG 0044 
001354 oos4ss .WORD oOS4SS MSW 
001356 143300 ENOSK: :WORD 143300 :3.X 10t6 SEEKS (LSW) 
001360 o0005S ‘ORe8 ube 
{PROGRAM USES THESE PARAMETERS Tb DETERMINE @.V. END OF PASS 
00i362 120274 aVCON: 20274 32. 3437x1087 WORDS (10) 
GO1364 o0000S ; 
001 134330 QVSEK: . 34330 3. 75 X 10tS SEEKS (10) 
851398 00s Sw 
a! cat DETERMINE END OF PASS ARE LOADED IN HERE BY THE PROGRAM. 
ie OUGH, 7 Ac. 4 QV PARAMETERS ARE USED, AFTER THAT THE 
001372 oo00000 
001374 900000 WORD 
001376 900000 ENDSEK: :WORD 0 
001400 oc0000 ‘WORD O 
001402 000001 PASCNT: .WORD 1 ;NUMBER OF PASSES TO END OF TEST 
001404 900000 MAXDOL: .WORD O : MAXI DATA TRANFER SIZE IN WORDS 
: CFILL D BY PROGRAM AT STARTUP OR BY OPERATOR 
; DURING TER ENTRY DIALOG. ) 
001406 o00144 MAXER: .WORD 100. : MAXIMUM S - 100(10) 
061410 oo000S oD0000 INTRVL: :WORD 5,0 :FIRST LORD IS THE PERFORMANCE T YPEQUT INTERVAL 
if N MINUTES). SECOND WORD IS THE INTERVAL 
; COUNTER. UPPER BYTE IS VALUE. 
001414 900004 CMPLMT: .WORD 4 ‘NUMBER OF COMPARE ERRORS TYPED OUT 
6014i¢ 000001 FORMAT: .WORD 1 ‘IF NOT E€Q 0, ALLOW WRIT HEADER & DATA ORDERS 
:IF EQ 0, DO’NOT ALLOW WRITE HEADER & DATA ORDERS 
001429 900000 WCSEL: .WORD O !IF £@ TO 0, GENERATE A RANDOM WORD COUNT 
: FOR THE OPERATION. 
!IF NOT EQ TO 0, USE THE VALUE IN ’MAXDL’ FOR 
: THE WORD COUNT 
001422 900003 RATIO: .WORD 3 'READ/WRITE RATIO [RANGE 0 - 7} 
:0 - Oe (READ /WRITE) 
sl - 7/4) 
se - 6/2 
33 - 573 
Ge 4/4 
3S - 3/5 
ib = U5 
001424 000001 AUTOCK: .WORD 1 :IF NOT EQ 3 DO AN APPROPRITE WRITE 
; CHECK AFTER EACH WRITE ORDER. 
Teen 0 SELEC WRITE CHECK ORDERS 
001426 ococo! NOTPRT: .WORD 1 tIF E 80 No T PRINT DATA ERROR MESSAGES 
; assoctare D WITH OPERATOR SPECIFIED 
IF Ne ge AREAS, INT ERROR MESSAGES RELATING TO 
001439 ococoo! ENDET: .WORD 1 iF NOT EQ O ENO. OF OF PASS DETERMINED 
BY THE "WORDS READ’ COUN 


‘IF EQ 0, END OF PASS DETERMINED 
: BY THE SEEK COUNT 


fp RERREERAEEAREREAERE REAL EAE RELEAA LEAS EARERSALARAASRALAAA AAA ELATE 


SNS 
Ba~cule 


Boe 


2 


2407 
2408 


PPPPrrE rrr eee 
TUTU bb 
H—OWDONTU LS Wl-OW 


ates 
> 
— 


001432 
001434 


001436 


001464 
001472 
S500 


“3 
° 
< 

au) 





000404 


000000 
000000 
000000 


000000 
0000 


00 
000000 


ooocoo 
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pARARE 


000900 
000000 
060000 


000000 


0000 
00 
000000 
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C-77 11:03 PAGE 46 
COMMON ERS 


.SBTTL VALUES FOR FIRST OPERATION 
5 JE AEE A AE A AE AE He aE a 9 a a a a a aa aaa 


BEGPAT: .WORD 10 es PATTERN co {RANGE 1 - 17 (OCTAL)} 
BEGCOD: :WORD § [RANGE O - S] 
ConeC. CK os (*WCKD’ ) 
7 . CHECK HEADER & DATA (’WCHKHD’ 
12 = SAF (WRIDAT’ ) 
:3 = WATT HEADER & DATA (’WRTHD’) 
14 = DATA (’ T’) 
:S = HEADER & DATA (’ROHD’ 
BEGSIZ: .WORD 404 ;STARTING RECORD SIZE [RANGE 4. — MA 
;NOTE: HE aR HUST BE AT LEAST 4 IF 
‘WRITE DATA DATA; THE SIZE MUST 
iB ar che Ret, wee WRITE HEADER 
ADER AND DATA. 
1 Hes TER THAN i SECTOR, THE 
Size ru Bu FOR EERE APPING 4 OR'S 
er 3 LAST SECTOR USED. 


a3 LILA ELE EAL OT OTA 


-SBTTL TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
5p HAE AE EAE IE HEHE AE HE a HERES EEE EERE EEE EE 


SEG CO4S 


ORDERG: .WORD 
ASNLST: .WORD 
DUNIT: .WORD 
NEWUNT: .WORD 
AVAIL: .WORD 
WAIT: . WORD 
PARG: . WORD 
BUF TBL: HOR 


0,0,0,0,0,0,0,0,0 


0 7A 
0,0,0,0,0,0,0,0,0 


0,6,0,0,0,0,0,0,0 


0,0,0,0,0,0,0,0,0 


0,0,0,0,0,09,0,0,0 


0,0,0,0,0,0,0,0,0 


oo 
Oo 


;LIST OF DRIVES PERFORMING COMMANDS 


BIT SET IS AN ASSIGNED ORIVE 
;ADDRESSES OF DRIVES TO BE DEASSIGNED 


;ADDRESSES OF NEWLY ASSIGNED ORIVES 


;LIST OF DRIVES WAITING FOR BUFFERS“PARAMETERS 


;LIST OF DRIVES WAITING FOR BUFFERS 


;LIST OF DRIVES WAITING FOR NEXT PARAMETERS 


;BUFFER ALLOCATION TABLE ENTRY COUNT 
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CZRJDC.P11 1S-DEC-77 10:58 TABLES, CONSTANTS, AND VARIABLE LOCATIONS SEG D046 
2430 001624 900000 .WORD 0,0 
e431 001630 00 “WORD 0,0 
e43e 901 00 WORD 0,0 
2433 001640 ORD 0,0 
2434 001644 WORD 0, 
34 1650 WOR ; 
a 1654 WORD 0; 
1660 00 RD 0;0 

2438 001664 000000 0;0 
2439 001670 ORD 0,0 
eyo 001674 WORD 0,0 

41 001 Wd 0,9 
e442 O01 00 “WORD 0, 
2443 001710 000000 “WORD 0,0 
2444 001714 0000 WORD 0,0 
e44S 001720 00 WORD 0,0 
e446 001724 WORD 0,0 
2447 001730 000000 WORD 0/0 
eqse 001734 000000 WORD 0,0 
5423 001740 041670 BLKADR: .WORD ORIVEO ;ADDRESS OF THE BLOCK FOR DRIVE 0 
2451 OO1742 042174 "WORD ORIVEL ; 88 OF OCk FOR DRIVE J 
2452 001744 042500 “WORD ORIVEe : T OCK FOR DRIVE 2 
2453 001746 043004 “WORD ORIVES : SS OF THE BLOCK FOR DRIVE 3 
2454 001750 943310 “WORD RIVE ADDRESS OF THE BLOCK FOR DRIVE 4 
2455 001752 043614 “WORD DRIVES !ADDRESS OF THE BLOCK FOR DRIVE S 
2456 001754 044120 WORD DRIVE ;ADDRESS OF THE BLOCK FOR DRIVE & 
e457 001756 O44Ne4 WORD ORIVE7 ADDRESS OF BLOCK FOR DRIVE 7 
2459 001760 151 COMTBL: .BYTE WCKD ;WRITE CHECK DAT 
2460 001761 153 “BYTE  WCKHD tHRITE CHECK HEADER AND DATA 
e461 00176 161 “BYTE WRTDAT WR 

62 001763 163 “BYTE WRTHD WRITE HEADER AND DATA 
2463 O01764 171 "BYTE  RODAT : D 
eye4 001765 173 ‘BYTE  ROHD !READ HEADER AND DATA 
2466 001766 902 OPTBL: .BYTE 2 ; UNLOAD 

7 001767 004 "BYTE 4 : SEEK 
001770 OO ‘BYTE 6 :REC 

2469 001771 010 "BYTE 10 {DRIVE CLEAR 
2470 001772 Ole ‘BYTE le j RELEASE 
2471 001773 014 BYTE 14 FSET 
2472 001774 O16 "BYTE 16 ;RETURN TO. CENTERLINE 

473 001 020 "BYTE 20 ESET 

54 BOLTSE Oee BYTE 22 BACK ACKNOWLEDGE 
2475 001777 030 BYTE 30 ee ench 
2476 002000 050 BYTE 50 sHRITE CHECK DAT 
2477 002001 052 BYTE 52 WRITE CHECK HEADER AND DATA 
2478 O0e002 O60 ‘BYTE 60 :WRITE DAT 
2478 002003 Obe "BYTE 62 {WRITE HEADER AND DATA 
2480 902004 070 "BYTE 70 
e481 002005 072 BYTE 72 'READ HEADER AND DATA 
e4ge 002006 277 BYTE -1 : TERMINATOR 
24E4 002610 LEVEN 


OO 


vyypyyppyy 22 


BBBIERLOM-ODDIF OO 


RRR Poe 
RREERE 
iB talstatctatctatciatciatstatatatclatata 


ee 


pereesress: 


ett 
OWONOUSWwY-O 


eSel 


0 


a 


RPO4’ 
il 


D020 
NOe0SE 
002060 
002066 


BB 


FOP OFOFOREROTORECS 


R Be 
8S fo 


eae 
Sous 


002231 


Bg 


002250 
O0eese 
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047514 





1127 
000040 


Bs a 
rmonvor- 
~~ CC e— 
SVoVoN 


BS 
a 


OnoVvoNMwonvNoVvVono 
OO £ Crnwwrr---O 
ONOOOCOOOO0O00000 oo 


o4ssos 
040503 
041526 
051514 
051S06 
020103 
042101 
04SS03 
051101 
042113 
044113 
042124 
044124 
040S04 
042110 
042516 


ooo 


000 
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TABLES, CONSTANTS, AND VAR 
O42101 MNTBL: .ASCIZ /UNLOAD / 
020040 -ASCIZ /SEEK / 
020114 -ASCIZ /RECAL / 
051114 -ASCIZ /ORVCLR / 
020105 -ASCIZ /RELSE / 
052105 -ASCIZ /OFFSET 7 
020040 -ASCIZ /RTC / 
047111 -ASCIZ /READIN / 
020040 -ASCIZ /PACK 7 
044103 -ASCIZ /SEARCH / 
020040 -ASCIZ /WCKD / 
020104 -ASCIZ /WCKHD / 
0S2101 -ASCIZ /WRTDAT 7 
020104 -ASCIZ /WRTHD / 
020124 -ASCIZ /RODAT / 
020040 -ASCIZ /ROHD / 
020040 -ASCIZ /NONE / 
OFFCOD: .BYTE O 
-BYTE 10 
BYTE e210 
-BYTE 20 
-BYTE e220 
-BYTE 30 
-BYTE 230,0 
-BYTE e20 
-BYTE e220 
-BYTE 40 
-eVTe 290 
-BYTE 60 
-BYTE 260,0 
- EVEN 
OFMTBL: .WORD FMSGO 
-WORO OFMSG1 
WORD OFMSGe 
WORD OFMSG3 
WORD OFMSG4 
WORD OFMSGS 


O04 


PAGE 48 
IABLE LOCATIONS 


ot 
z 
oO 
x 
m 


a 

Oo 

o 
eccccecccc 
D4 4 4 4 4 0 
aeiteiins 


+1200 U INC 
+1300 U INC 


w 


NWUMINUIMUIW 


$ OFFSET CODE TABLE 
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ESRIbe Pit iscorc-7> 16:58 TABLES, CONSTANTS, AND VARIABLE LOCATIONS 
‘ 4 ;7TH OFFSET MESSAGE 
cee QREEES ORS GER SENS TOY SERGEY resetee 
2544 002260 417 "WOR OF MSG :4TH OFFSET SA 
254s 453 /-WORD OFMSG4 ‘STH OFFSET MESSAGE 
e546 Oasees [WORD OFMSG7 :BTH OFFSET SAGE 
seve uses Sete? eee Senees Tots orrazr" be fest 
4 m 4 
eeu3 pasS75 002724 “WORD OFMSGA t11TH OFFSET MESSAGE 
e551 gg2 74 gi2192 Betis g2012e OFMSGO: .ASCIZ /AFTER RETRY WITHOUT OFFSET’ 
11 0131 
ce Basie Gere, Gusiiy Beiede 
2555 324 1 000 
2556 1 043117 OFMSG1: .ASCIZ /AT OFFSET +200 MICRO-INCHES/ 
Sees BIS, onstbe SECIS BBLNG 
Bs Bee Bie ie Oe 
2561 1 1 3117 OFMSG2: .ASCIZ /AT OFFSET -200 MICRO-INCHES/ 
Ser} ORES onstbl EvIRE BBltg 
cee Bees Bult Betene Ua 
2565 o0e417 101 bogies 043117 OFMSG3: .ASCIZ /AT OFFSET +400 MICRO-INCHES/ 
S2he ppSda2 BSOBEs OBBCED panciS 
sere Beene Sule petexe "bas 
2571 pesues if? 020124 O43117 OFMSGH: .ASCIZ /AT OFFSET -400 MICRO-INCHES/ 
sere Biever Stare Geaite Sauce 
2574 0020474 051103 Gebs17 047111 
2575 0441 fake 000 
2s 101 gegies Q43117 OFMSGS: .ASCIZ /AT OFFSET +600 MICRO-INCHES/ 
sere Geese Stems Berues Bari 
2579 002530 951103 Oeebi7 o47i34 
2581 g02i3 101 de01 3117 OFMSG6: .ASCIZ /AT OFFSET -600 MICRO-INCHES” 
ce Gees pis cee 
cee! Gieers Gulihe Bete 7AM 
e586 o0es77, 951202 le 417 OFMSG7: .ASCIZ /AT OFFSET +800 MICRO-INCHES/ 
cess ieee Bette Oe vill 
Seay {Bi OsI50s “900 OFMSG@: .ASCIZ /AT OFFSET -800 MICRO-INCHES/ 
2592 eee 051406 peotee pa2440 he 
2593 46 030070 O20060 O44S15 
cee Beste! Btles Geren Ob 
2596 O0cbE7 101 O20124 O43117 OFMSG9: .ASCIZ “AT OFFSET +1200 MICRO-INCHES/ 
2597 002674 os1506 OSel0s Oe25440 
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7 177777 
177776 177776 ;STANDARD PATTERN 2 
177774 177774 
a akg" 177770 
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2690 “WOR ee 
HES BoaR8 
26 WORD i 09 
2694 003210 * WOR’ 77777 
e695 le “Wo 

26 14 “WORD 1 
2697 1 * WORD 000 on 
2698 Wd 7777 
2699 ats) bo0000 
2700 003224 “WORD 177777 
2708 WO (© ;STANDARD PATTERN 4 
27 10421 “Wo io421 
2704 32 Ge iOve WO! 21042 
2705 3234 031463 "WORD 031463 
6708 3236 o4 "WOR Gie104 
27 3240 25 WOR’ S2Ses 
2708 O03e4e2 3146 WORD O63146 
270% 002244 9735¢7 WORD 073567 
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;STANDARD PATTERN 9 


HORS 
“WORD 
“HOE 
ce 
ce 
ep 
Frcs 
“WORD 
“MORB 
es 
‘HOR 
“WORD 





pELLEPaeererereee ter cs 


177771 - ORB 177776 ;STANDARD PATTERN 10 
1777 - WO 17777 
3532 177773 -WORD 177773 
3534 177767 -WORD 177767 
3S 1 7 -WORD 177757 
35 177737 -WORD 177737 
g8i0 42 177677 Wd 177 bee 
11 44 177577 - WOR 77 
gels gede {4G 144 -WORD 177377 
281 176777 - WO 176777 
2814 26 173 77 - WOR 178777 
seis 4 173777 WOR 173777 
281 56 1677 WO 167777 
2817 157777 -WORD 157777 
261s OC 137777 -WORD 137777 
£6h3 003564 077777 -WORD 077777 
e6el OO3SEE 172666 -WORD 172666 ;STANDARD PATTERN 11 
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C2RIDC. P11 iS-DEC-77 10:58 DATA BATTERNES SEG 0052 
ege 1SSSSS 1sssss 
5 17eeee 13 B6 
Biers ieeee i2e6ee 
303600 1 :WO 1 
3 i? “WORD 133eee 
10360 : sss ; 15 eee 
10:36 1¢ : 5S : 15 
336 18 ss - HORD 1g5es6 
1362 1gees5 “WORD 15 eee 
0036 172656 “WORD 172666 
003624 1SSs5sS WORD 155555 
07777 -WORD 077777 ;STANDARD PATTERN 12 
137777 [WORD 137777 
157777 [WORD 157777 
903634 167777 “WORD 187727 
DOSE ae 133555 WORD 153555 
é . 
up 176777 WORD 176777 
seue 175295 “HORE 155855 
seep 177677 WORD 17767 
177737 [WORD 177737 
177757 - WORD 177757 
“WORD 
“WORD 
“WO 
WORD 
WORD 


sree Fela 


BRAN Dee Ban NNO DRM seupatee: caneoaER ENS 


ageee? ;STANDARD PATTERN 13 
3 
15333 f 53332 
3 - WORD bebe? 
oegss. : 1533 Z 
bocce? WORD 666 
003706 153333 - WORD 153333 
aig 153383 “HOR 183339 
286 716 153333 ‘WORD 153333 
003720 0656667 ‘WORD 066667 . 
2869 003722 153333 "WORD 153333 
e870 003724 066667 "WORD 065667 
2872 003726 .WORD 00000 ;STANDARD PATTERN 14 
2873 003730 177777 . WORD 177777 
2874 003732 17777 . WORD 177777 
2875 003734 177777 ‘WORD 177777 
2876 003736 177777 . WORD 177777 
2877 003740 177777 WORD 177777 
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2878 003742 177777 .WORD 177777 
2879 177777 “WORD 177777 
. 13355 
Wi 
af 177777 
WO 177777 
“WOR 177777 
177777 
Wo 77 


; 177777 
“WOR 177777 


. 77777 ;STANDARD PATTERN 15 
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“WORD 930908 
Hoe GBOBNS 
502 “WORD 659000 
2903 O040e2e o00900 WORD eee 
e308 004024 900000 ‘WORD 000000 
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S3p8 -SB8TTL ERROR POINTER TABLE 
2908 bie TABLE CONTAINS Me 3 IN F to — THAT CAN OCCUR. 
2305 NFORMA MATION tH ef BINED BY. USING Phe X_NUMBER_FOUND IN 
2910 Hee TON ster, £ 5 é al een cH ITEM IN THE TABLE IS PERTINENT. 
egli ; #NOTEL: 11h IS ve THe ONY Or NENT DATA_IS (SERRPC). 
s2is ; #NOTEe: Each ITEM IN ABL CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
e914 ;* EM ;;POINTS TO THE ERROR MESSAGE 
sai? ;* DH ;;POINTS TO THE DATA HEADER 
ig i* DT ;;POINTS TO T T 
esl? ;* OF ;;POINTS TO THE DATA FORMAT 
2918 
2319 
2e39e0 O004026 SERRTB: 
e321 ;ERROR 1 
e3ee 
Sad ERROR 1 
23eS 004026 0 EM1 ;RH11 INTERRUPT OCCURRED (RPAS = 0) 
2326 004030 7460 DHi 
e39e? 004032 OS01le OT1 
2e39e8 004034 0 0 
5320 ;ERROR 2 
2e3$3e 004036 O04S063 EMe ; UNEXPECTED ATTENTION OCCURRED 
OO4O40 047465 DHe 
e934 O0404e 050116 OTe 
2935 004044 9000000 0 
2936 
330 ;ERROR 3 
OO4O4E O4S121 EM3 ;MASSBUS PARITY ERROR (MCPE=1) 
23940 OSO O047S4e OH3 
2341 O040Se 0134 OT3 
este O0040S4 10000 0 
2943 
Sauce ERROR 4 
e946 OO40SE 045157 EMY ;MASSBUS PARITY ERROR (PAR=1) 
e347 004060 047570 DHY 
e948 O00406e 050144 DT4 
2949 004064 0000 
2950 
Soph ;ERROR S 
e953 004066 O04Se14 E ;ADDRESS PLUG BIT CHANGED 
egs4 004070 O474E5 DHe 
egss 004672 O5011E e 
e356 004074 060000 
29S7 
S328 ;ERROR 6 
e960 004076 O4Se50 EME ;RH11 DION’T RESPOND TO ADDRESSING 


296i 904100 047627 DHE 
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CZRIDOC.P11 1S-DEC-7 ERROR POINTER TABLE SEQ O0SE 
eabe 004102 os01S56 p76 
6363 004104 900000 
Sap) $8 ERKKARRREERRAKRAARAERASAARRARA RARE RAAARARAAAA AAA RAAARAAARAARAAEAS 
e367 .SBTTL SETUP AND INITIALIZATION ROUTINE 
2969 ; START ADDRESS 5 P08 
e370 : ADDRESS TO CHANGE RH11 UNIBUS ADDRESS = 204 
S355 $e AE EE aE aE A a aE a ge a a a a a a a a a a a aa aaa aaa 
2974 004106 012737 177777 001260 START: MOV #-1, CHGADR ;SET_RH11 ADDRESS CHANGE FLAG 
2975 004114 600% BR START :START THE PROGRAM 
2976 004116 5037 001260 START1: CLR BHCRDR CLEAR TH RH11 ADDRESS CHANGE FLAG 
2977 004122 START2: RESET :CLEAR THE BU 
2978 004124 013737 001352 001372 MOV ENOCN ENDCON ;SET UP FOR NORMAL PASS 
2979 004132 0137 001354 001374 MOV NOCNS2, ENDCON+2 
2980 004140 013737 001356 001376 MOV NDSK , ENDSEK 
2981 004146 013737 001360 001400 MOV ENDSK42, ENDSEK+2 
2982 O041S4 SETUP: 
2983 .SBTTL INITIALIZE THE COMMON TAGS 
2584 :;CLEAR THE COMMON TAGS (SCMTAG) AREA 
2985S 004154 012706 001100 MOV SSCMTAG, RE ;;FIRST LOCATION TO a3 CLEARED 
2386 004160 CLR (R6)+ CLEAR MEMORY LOCATION 
2 004162 022706 001140 CMP SWR,R& ;;DONE? 
2988 OO4166 001374 BNE ace ;;LOOP_ BACK IF NO 
£389 004170 012706 601100 initvenl Vie “ eis’ Ky ::SETUP THE STACK POINTER 
2991 004174 012737 030530 o30 ** MOV aSE QSEMTVEC ;;EM CTOR FOR ERROR ROUTINE 
2992 004202 012737 0 032 MOV #340 etRTVECE ; EVEL Y§ 
2993 004210 012737 033076 99934 MOV * TRAP re TRAPVEC’:: TRAP VECTOR FOR TRAP CALLS 
2994 OO4216 012737 34 00036 MOV 0, a8 RAPVEC* 2; sCEy VEL ‘ 
2995 GO4ee4 012737 176543 errr MOV si 7eeag HE RANDOM NUMBER GENERATOR 
2336 004232 012737 1234S6 030464 ren lov, t OTH HI eared AND LOW WORDS en 
2998 ::EQUAL TO A “-1" TUP FOR Be ghéfen, tf SWI MoH GISTER. 
2999 OO4240 013746 oO00004 MOV akERR a) ;;SAVE ERROR VECTOR 
3000 004244 012737 004300 ooD0004 MOV eens NEARVEC ::SET ERROR VECTOR 
3001 OO4eS2 012737 177570 001140 MOV #O0SWR,S :: SETUP FOR A SWICH REGISTER 
3002 004260 012737 177570 001142 MOV SDB TSP DISPLAY +:AND A HARDWARE DISPLAY REGISTER 
3003 OO%266 022777 177777 174644 CMP #-1, aSUR ?:TRY TO REFERENCE HAR 
3004 904274 O01012 BNE 66$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
3005 T -HAROWARE SWR IS NOT = -1 
3006 004276 O00403 BR 65$ : BRANCH F NO TIMEOUT 
3007 904300 012716 004306 64S: nov #65S, (SP) ::SET UP FOR TRAP RETURN 
3009 004306 O12 3 000176 OO01140 65S: MOV #SWREG, SWR ;;POINT TO SOFTWARE SWR 
3010 OO4314 0127 000174 O0114e MOV #OISPREG, DISPLAY 
3011 004322 012637 O00004 66S: MOV (SP)+, SGERAVEG ; ;RESTORE ERROR VECTOR 
3013 004326 012737 40 000032 MOV #240, DUEMTVEC+2 CHANGE EMT PRIORITY TO S 
2914 004334 012737 O2e40 000036 MOV #240) JUTRAPVEC+2 i CHANGE TRAP PRIORITY TO S 
3015 OO4342 005227 177777 INC #-1 ;FIRST START 
3016 0043 001017 BNE 1$ NOT 
3017 004250 023737 cOoo4e oDo0o4E CMP D842, D846 !A@RE WE IN ACT-11 AUTO MODE? 
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000041 


000176 


001134 


033332 
033334 


001274 


001406 


INITIALIZE THE COMMON TAGS 
EO i$ ;BRANCH I IF nb iSoe 
YPE ITLE C NUMBER 

TST 4 i cite eT Ine CHAIN MODE ? 

BNE 1 

CHEB #11, 41 iL9 TF No FRO AN RPOW/S/’6 ? 

ROBE LORORY ner THE OPERATOR ON HOW TO TEST DRIVE 0 
1$: SR PC. STKINT THE K KEYBOARD INTERRUPT 
-SBTTL GET VALUE “tor SOF TWARE si CH ae ER 

rst os sie RUNN NG UNDER XXDP/ACT? 

CNP SUR, #SWREG fay he SWITCH REG SELECTED? 

GTSWR en :GET SOF oun SETTINGS 
67: MOVB #1, SAUTOS — AUTO-MODE INDICATOR 

INC s-1 ;FIRST START ? 

BNE R IF NO 

ISR C, BUSADR CHECK RH11 ADDRESS 

MOV SROADR RPADR ?RHI1 Ss 

MOV SRPVEC; RPVEC :RH11 VECTOR ADDRESS 

TST ase :ACT-11 AUTO OR CHAIN MODE? 

BNE 2s :BRANCH IF EI HER, SKIP 

:DATE & OPERATOR [D INPUT 

ISR PC, OPRDAT ‘GET THE DATE AND OPERATOR ID 
2s: CLR STATIN : CLEAR PERE ORNANCE SUMMARY TYPEOUT FLAG 

MOV BORDERG, RS ? START AREA TO CLEAR 
3S: CLR (RS)+ 

CMP #BLKADR, RS ;LOOK_FOR_END OF CLEAR AREA 

BNE :BR_IF NOT FINISHED 

MOV BSTACK, SP : SETUP THe ACK POINT 

CLR PS :CLEAR_T ESSOR STATU 

MOV HZ, SIXTEE ia7 O TH wbiee TH COND COUNTER VALUE 

CLR HOUR ‘CLEAR T *S COUNTER 

CLR MINUTE :CLEAR THE MINUTE’S COUNTER 

CLR SECOND > CLEAR THE COND’S COUNTER 

CLR INTRVL+2 : CLEAR IN ERVAL COUNTER 

CLR PACK i CLEAR HE ’R’ OR 'W’ COMMAND FLAG 

CLR CFLAG ‘CLEAR THE 'CONTROL C’ FLA 

BIC #170000,MAXER ;MAKE SURE ERROR LIMITS ARE NOT TOO HIGH 
;ROUTINE TO DETERMINE BUFFER AREA SIZE 
SIZMEM: INC #-1 ;SEE IF TIME TO SIZE MEMORY 

BNE is :BR IF NOT 

ISR SIZE :SEE HOW MUCH MEMORY ON SYSTEM 

MOV sé AD, LSTAD :SAVE THE LAST ADDRESS 
1$: MOV BUF TBL iL NUMBER BUFFERS 

MOV seKOPan BUFTBL+2’ -STARTING ADDRESS OF BUFFER 

MOV LSTAD, BUFTBL+4 ;LAST ADDR TO BUFFER ALLOCATION TABLE 

SUB SENDPOM, BUF TBL+4" of SUBTRACT, acid SPACE 

ROR BUF TBL+4 CER O_WORD COUNT 

Sus 8100.,BUFTBL+4 ;SAVE ROOM FOR THE *ABS* LOADER 

CMP LSTAD; #100000 :1&K ON THE SYSTEM 
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SEG 6057 


GOS 
SFB eT Fekete Pb ise MACY!) SBEH°UR Due FoR Sof Tuake SuITCH REGISTER 


ll 
3074 7 1 LO 3$ ;BR_IF YES 
3075 tte 52398 000041 STB 41 :SEE WHO LOADED THE PROGRAM 
3076 4 3 BEG 3$ jBR IF LOADED Y PAPER TAPE 
39 7 gge570 001622 2 #1400. ,BUFTBL+4 ';SUBTRACT "XxDP’ LOADER SIZE 

78 737 1404 3S: ST MAXDL ;VALUE IN ’MAXDL’ 7 
3023 Boasts eer 3534 001494 a #2980. . MAX ONE FULL TRACK + 1 SEC MAXIMUM 
3081 a 2 8385 7 Baia 001622 CMP RAXBL: BUF TEL +4 His HAT 56 LARGE ? 

004730 103403 BLO 4§ :BR IF NOT 

3083 004732 013737 1622 001404 MOV BUET L+4,MAXDL_ ;USE MAX AVAIL MEMORY AS MAX BUFFER SIZE 
3088 004740 013737 bee OS34SE 4S: MOV UFTBL+4;PARLST+2 ;VALUE FOR THE PARAMETER TABLE 
3086 ;SEE IF THE OPERATOR WANTS TO CHANGE ANY PARAMETERS 
3086 004746 905737 oo0042 LKPAR: TST asv2 ;’XXDP’ CHAIN MODE OR ’ACTIi* OPERATION ” 
30a bouved SpaaeT Os3sSe 3 SEE KPAR OR On PARMETERS 
3091 760 1Buati ROL IN F :READ THE ERTRY 
3092 004762 012605 MOV SP)+.RS ; BDORESS TRY TO RS 
3093 004764 122715 000131 CMPB #’Y, (RS) :WAS ENTRY A ’Y’ (YES 
3034 0047 001013 BNE SETVEC :BR IF NO 
30968 004772 0127 0S34S4 ENTPR: MOV #PARLST,R3 ;PARAMETER TABLE ADDRESS 
3097 004776 004737 O26272 JSR PC, PARENT ‘GET THE RORARETER ENTRY 
3098 O0S002 6023727 O01404 oD0004 CMP MAXDL , #4 :IS THE 'MAXDL’ VALUE OK ” 
3099 005010 103003 BHIS SETVEC ‘BR IF IT IS 
3190 B00SGi2 012737 oo00004 001404 MOV #4, MAXDL :SET "MAXDL’ TO THE MINIMUM VALUE 
3102 ;DISPLAY DRIVE STATUS AND SET UP THE OTHER SYSTEM DEVICES THAT 
3193 : THE PROGRAM WILL USE 
3105 o0S020 004737 O22412 SETVEC: JSR PC, CKCLK ;START THE CLOCK 
3106 005024 737 033350 JSR PC’RPINIT : NTT FAL ize THE RPOY/S/6 DRIVER 
3167 005030 012737 177777 033272 MOV a-1, SAVEFG :SET THE SAVE REGISTERS FLAG 
3108 005036 625535 177777 O00000 ADD #-1' 80 :CHECK FOR FIRST STAR 
3109 905044 103004 BCC 11$ i BR IF FIRST START 
3110 ooso46 777 000004 174064 BIT #SWO2 , ISWR :TYPEOUT THE DRIVE STATUS TABLE ” 
3111 ooS50s4 1076 BNE 10 :BR IF NOT 
3112 O050S6 012737 O00340 177776 11S: MOV #PR7,PS :SET PRIORITY TO 7 
3113 005064 905004 CLR RY ; DRIVE TABLE POINTER 
3114 005066 104401 001165 TYPE , SCRLF *CR=L 
311s g0507e 104401 052344 i TYPE *SYSTAT : TYPE STATUS HEADING 
3117 005076 o10446 MOV R4,-(SP) ;;SAVE RY FOR TYPEOUT 
3118 : i TYPE RIVE 
3119 005100 104403 TYPOS ::G0 —--OCTAL ASCII 
3120 905 19¢ fs) .BYT 2 ::TYPE 2 DIGIT(S) 
3lel 103 0 “BYTE O :: SUPPRESS LEADING ZEROS 
3ige 005104 104401 2153 TYPE LINYSP : SPACES 
3ie3 005110 105764 033204 TSTB ARYSTACRY) :CHECK ORIVE’S STATUS 
3124 005114 100416 BMI 4§ :BR IF UNSAFE 
3125 905116 1020 BNE cs iBR IF ONL INE 
3126 0051 105764 0233214 TSTB © ORVTYP(RY) :SEE IF OFFLINE OR NONEXISTENT 
3127 O051e4 001404 BEG 2s :BR IF NONEXISTENT 
3le8 O0Siee 10000 BPL 38 :BR IF OFFLINE 
3129 OOf130 104401 osez2s7 TYPE .NOTRP ‘DRIVE NOT AN RPO4/S’6 
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4 BR 9s ;CHECK NEXT DRIVE 
3137 O08  3e ney 052300 2s: er 4hOTPRS ; DRIVE Nour BRIE 
1 14 : 
: YP TOFF : FTV FL 
8 BS ER seus Nt Wine sees :PRINT DRIVE "Tyee 
4S: 5 
3132 rt eeu -_ . BR 6$ BR Ma BRIVE TYPE 
3138 eats 1oM4 I 952177 S$: TYPE » UNTON :DR VE ONLINE 
3138 poe tS3 §03393 pestee 005234 : MOV aReDS 48, 8S + BDO 2c OF RPOY MESSAGE 
3140 905176 132764 000001 033214 BITB 1 igs sPRVTYP CR og TF aes 
3i42 005206 B12? 3 052371 005234 MOV ‘ADDRESS OF RPOS MESSAGE 
143 4 764 O00002 033214 pire spiral, BS VTYPCRYS ; ? 
Sida Boess2 Adi083 NE spr TF YES 
314S 005224 012737 OS2376 005234 MOV #RPO6, 8S ‘ADDRESS OF RPO MESSAGE 
3146 o0S2 104401 7$: TYPE i Tyee E THE DRIVE. TYPE MESSAGE 
atte BSS BRP coies =H! HEE Ogcmr ae 
3108 2 sesn4 _ ; INC RY te ae DRIVE NUMBER’TABLE POINTER 
3ica Boes4a beae? 00010 RY, #8. Sf 
3151 o0052S0 001312 an BNE 1 wae If 
3188 pssee Renters OOLLEP / CLR ee as PRIORITY BACK TO *0’ 
315s 62 000137 O0S2b6 IMP MONTR CHECK FOR 'XXDP’ OR 'ACT1L1’ MONITOR 
318e ;SETUP IF 'XXDP’ OR 'ACT11’ OPERATION 
TR: TST 4 ;’XXDP’ CHAIN MODE OR ‘ACTI1’ AUTO ACCEPT 
3128 Boesss Biggs CCCONe oe ae tan OF NET THER 
3160 005274 004727 O24274 JSR be ASGN2 :ASSIGN DRIVES 
3161 005300 90s2e7 177777 1$: INC ae! ‘eRe START ? 
3163 ° 5737 000041 To1B gay ;LOADED ER FROM PAPER TAPE ” 
3ies 005314 023729 001256 100000 CHP LSTAD, #100000 ERORE THER 16K ON THE SYSTEM ? 
3185 g i 401 OSS663 TYPE , NOLOAD PELL Ts T OPERATOR THAT THE *XXDP* LOADER 
3168 005330 004737 030050 2s: JSR PC, $TKINT VNITIBL 1 THE KEBOARD INTERRUPT HANDLER 
3170 005334 104401 053341 TYPE INTDON TYPE INITIALIZE | COMPLETE’ 
3121 005340 000137 oO0SSe2 IMP MAIN :START THE PROGR 
3173 ;’XXDP’ OR 'ACT11’ END OF TEST ROUTINE 
3175 p05344 913700 oo0042 $GETY2: Hoy 42, RO 3 MONT TOR ADDRESS 
3158 poe3 Boat SF ooss2e NB barn : NON CON + TRUE 
3178 O05 ooo00s 1S: RESET :CLEAR EVERYTHING 
3179 005360 004710 SENDAD: JSR PC, (RO) GO To. THE MONITOR 
3180 005362 900240 NOP i SAV ER 
sa: Bese Senet Me a 
3183 70 000127 oO4lie $DOAGN: JMP STARTI ser at AGAIN 
3182 H 5 REEEREEREREE LES ASE RELA RA ELERERERELE LL ERAT SKE RRARERASLARRRASTAETE 
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SOFT 


-SBTTL MAIN PROGRAM 


WITCH REGISTER 


ii ESE SR IA EE IIIA ALESIS 1577 


MAIN: MOV #8.,R3 
MOV sOUNIT,RS 
1$: TST (RS) 
BNE 3$ 
2s: ADD #2,R5 
DEC Rs 
BNE 1 
TST ASNLST 
BNE MAIN 
IMP $GETY2 
3$: MOV SAVAIL,R1 
4S: TST (R1) 
BEQ S$ 
CMP (R1), (RS) 
BEO 7$ 
ADD #2,R1 
BR u§ 
S$: MOV #WAIT,R1I 
6$: TST (R11) 
BEQ 2s 
CMP (R1), (RS) 
BEQ 7$ 
ADD #2,R1 
BR 6$ 
7$: MOV (R1),RO 
TYPE DEASSG 
JSR PC TYPEST 
CLR (RS) 
CLR R1) 
JSR be CmPRES 
BR 2s 
:LOOK FOR DRIVES TO BE ASSIGNED 
MAINI1: MOV #8. ,R3 
CLR Re 
CLR RY 
CLR RS 
1$: TST NEWUNT (RS) 
BNE 3 
2s: ADD #2,R5 
INC RY 
DEC R3 
BNE 1$ 
BR MAIN2 
3S: TYPE UNTMSG 
MOV RY, -(SP) 
TYPOS 
BYTE 2 
BYTE 9 


ws OP DRIVE’ TABLE 
ugg ci * aes POSITION 


rent Yo “To. “EXT olnTER POSITION 
ie OUNTER 


Pel ACTIVE ? 


MONITOR RETURN 
OF ’AVAILABLE DRIVES’ TABLE 


E 
GO CHECK ’WAIT’ TABLE 
‘AVAIL’ THE ONE TO BE DROPPED 


TABLE ADDRESS 


n 


aeeer 
> i 
3 


TABLE ADDRE 
THE iar? TABLE 
ADDRESS IN RO 


MANCE SUMMARY 
TABLE ENTRY 

HE *AVAIL’ OR “WAIT’ 
TABLE 


SB 
3% 
“Ro cS 
cH 2 
a mes 
aX 
HOD 


TABLE 


1O 
: 
Ww 
wo 


ZD _-O 
4 <4 est 


“NDO--D 


OPERATIONS FOR THE AVAILABLE ORIVES 
JERY FOR TYPEOUT 

iY ey" pets NUMBER 

156 E--OCTAL ASCII 


oe ee ee ee ee es ee eres es es ee 


OS 
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CZ2RIOC.P11 1S-DEC-77 10:58 MAIN PROGRA SEG O01 
3242 905570 O1 952720 TYPE ASGND i aASSIGNE 
3643 905574 oe 1530 4$: rst BVAIL(R2) ND ‘OF AVAILABLE TABLE 
a Bee - 3 GSH" OTL TAE DOE 
3546 i ae fe ee ee NEMUNT RE} ,AVATL UR) iat OUT-OF NEW DRIVE TABLE — 
3249 iret 994398 001462 BISB ATABIT(R4), ASNLST ; IVE ASSIGNED INDICATOR 
3250 001530 MOV AVAIL (R2),RO ;PUT STARTING ADORESS OF BLOCK IN RO 
3251 005634 120 000002 ADD #2, Re s ENCREDEN NT AVAILABLE TABLE POINTER 
3252 005640 000740 BR 2s LOOK FOR MORE DRIVES 
3s23 ;GET PARAMETERS, BUFFER SPAC as START ORDERS FOR DRIVES IN 
3255 : Te RSA LABL Bue 
3055 IEABLE’ 
3257 poseue 905737 001ss2 MAIN2: rst WATT s OUTSTANDING BUFFER REQUESTS 
3528 posees CLR Re CLEAR DRIVE TABLE POINTER 
3260 Oost5e 90576e 001530 1S: rst AVAIL (R2) aN Y DRIVES WAITING FOR PARAMETERS 
3262 1200 001530 MOV AVATL(R2),RO Baan BLOGK ADDR N RO 
3503 bosero polos; oe D  peahlnaipas iBR ir THEY HAVE ee” 
3666 Gos67e 760 000026 rste SPACK (RO) rok’ & COMMAND FOR THE DRIVE ” 
3566 boezo4 ppodis O7SNe oo. $67 PAIR ace, PARAMETERS 
3269 005706 012701 001574 2$: MOV #PARQ.R1 ? ADDRESS a THE PARAMETER QUEUE 
3670 005716 Ge0011 3$: CHP RO, ¢RLD i 15 er R NT DRIVE IN THE QUEUE 7 
3272 ppeo ie 005721 TST (R1)+ :AT ENO OF PHe QUEUE 
3273 005720 001403 BEQ :BR IF AT END 
3274 005722 900773 BR ; CONTINUE LOOK NG 
3275 005724 737 017530 us: JSR C,CMPRES : COMPRES ABLE 
3276 730 004737 016446 S$: JSR PC; SELPAR >SELECT THE ARAME TERS 
3277 734 737 017322 65: JSR Pp TP tL NEW PARAMETERS 
3278 zug OMe iceze 7§: cLR | ; MAK Brioort ON THE STACK FOR THE BUFFER ADDR 
3280 Boerue yee 000006 MOV Pc,ce TUFF (RO) : BUFFER ADDR TO DPB 
3281 0057S2 001424 BEO as : Fr’ "abpPE (NO BUFFER) 
32°82 005754 004737 O1b242 JSR PC. FILBUF ‘FILL T FER 
3283 005760 O05060 000072 CLR FAIR(RO) i CLEAR THE *FRIRNESS’ COUNT 
3284 9057 4 904737 16370 ISR C, GODRIV :PUT C T DPB IN DRIVER 
3285 383 127 1440 MOV ORDERG, ; BDDRE S OF ORDER QUEUE IN RS 
3286 005774 005725 TST ( iE QUEUE ? 
3287 005776 001376 BNE ws :BR_ IF NOT 
3288 010045 MOV RO, -(RS) :PUT BLOCK ADDRESS INTO QUEUE 
3289 906002 95760 ooo026 rere SPACK (RO) ia’ OR OW’ COMMAND FOR DRIVE ? 
Bi Beale flere onsrs ney tress hoPhne ens" ge HE aRETETER QUEUE 
3293 OO6016 001376 BNE .-2 :BR_ IF NOT AT END OF QUEUE 
ze Bese bios sev ABgcns)—_Feburthae’ ooeincs ro me OUEUE 
3296 O06024 026037 o000072 O01254 Bs: CMP $FAIR(RO),FAIRNS’ :ENTRY BEEN IN THE QUEUE LONG ENOUGH ? 
3297 006032 O0140S BEO 9g ;BR IF YES 
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ie 
S38 


ae 
HOR 


PALALALALALALATATAL A] 
d= Bn f= fe Pane Bo Bo Fe pe Be 
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Say 
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te INC SFAIR(RO) 
ADD »Re 

o01sse 9S: V eWAIT,RS 
(RS)+ 


SEG D062 


TT NTRY_ COUNT 
TT BO NTER 


L 
BROvE I - ADDRESS TO QUEUE 
invRE y e $$ 

FORM SS OF LAST ENTRY 

c S ABLE 


OMPRE 
CONTI LOGKING 
;GET BUFFER ASSIGNMENTS FOR DRIVES IN THE ’BUFFER WAIT’ QUEUE 


= 
203 
BEos3 
303 

mm 

: 


1530 AVAIL(R2),-(RS) 


1530 10$: MOV sovert Ra 


’ 


ADD R : 
017530 JSR Pe; CHPRES : 
BR 1 ; 


apt = 
ras 
oO 
~- 
3 
< 





006076 001552 MAIN3: MOV WAIT, RO ;MOVE THE *WAIT’ ENTRY TO RO 
este 737 015672 SER aitely UF Vewartoen 
006110 2660 nated MOV (P+, UF(RO) ; Hee TO THE CPB 
006114 008 : :BR IF A BUF FE ASSIGNED 
006116 1 006202 OLE ;NO re AVAILABLE YET 
0061 3 016242 1S: ISR PC, FILBUF :FILL THE BUFFE 
0061 7 16370 JSR PC’ GODRIV :PUT THE ENTRY IN THE DRIVER 
0061 72 CLR SFAIR(RO) SCLEAR THE 'FA SS’ COUNT 
906 1 36 7 1446 MOV #ORDERG, RS : Ss ORDER QUEUE IN RS 
00614 7 TST (RS)¢ :AT ENO OF UE 
006144 1376 BNE .- :BR_IF NOT 
146 0 MOV R9 a( RE sPUT BLOCK ADDRESS IN QUEUE 
1 o00026 TSTB AcK(RO) :°R? TW’ C FOR DRIVE ? 
154 1 23 'BR IF YES, DON’T PUT BLOCK INTO ‘PARG' 
156 012705 001574 MOV #PARG,RS ?FIND THE END OF THE PARAMETER QUEUE 
006 16 3786 TST (RS)+ ;QPEN SLOT IN THE QUEUE ? 
weates 10848 MOV RO 7iRE? PUT Qck SS INTO THE QUEUE 
006170 012701 oo1ss2 2s: MOV WAIT. Ri ; OF OO Re TO TO COMPRESS 
006174 004737 017530 JSR PC, CMPRES [COMPRESS THE WAIT TABLE 
006200 000620 Mat :LOOK FOR MORE ENTRIES 
;WAIT FOR AN ORDER TO FINISH 
006202 012701 o01440 IOLE: MOV BORDERG,R1 ;ADDRESS OF THE ORDER QUEUE IN R1 
006206 012100 1$: MOV (R1)+,R0 ;PUT BLOCK ADDRESS INTO RO 
006210 001433 BEG 1OLE! ‘BR IF END OF QUEUE 
Dobe le 005760 000016 TST TATUS(RO) > SEE IF IVE INISHED 
16 001773 BEG 1$ :BR I ORIVE NOT FINISHED 
006. 166701 coooc2 SUB 2,R1 ; CORREC UE POINTER 
tee 10146 MOV R1;-(SP) :SAVE THE QUE DRESS 
O0b2e6 004737 015526 JSR PC’STATIS :ACC ATE STATISTICS FOR DRIVE IN RO 
Boes3a Bp aS 39 006540 ISR PC, PROCES : PeBe soe be ORDER 
006240 37 001264 CLR BADSEC ;CLE TRK/SEC ERROR INDICATOR 
006244 004 3 026524 ISR PC, ABNRML :SEE IF ANY DRIVES HAVE TOO MANY ERRORS 
004737 026552 JSR PC’ EOP :SEE IF ANY DRIVE HAS XFERED 3Xx10f9 BITS 
4 o1 01 MOV (SP)+,R1 ;REST THE ORDER TAB 
12705 001539 MOV #AVAIL,RS ?FIND THE END OF THE ‘AVAILABLE’ TABLE 
O0b2be 00572¢ 2s: TST (RS)+ :END OF THE TABLE ? 
006264 001376 BNE 2s :BR IF NOT AT END OF LIST 
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4 MOV (R1),-(RS) as Ft Fie bro RODRESS ESS INTO THE TABLE 
Ss 12530 ISR PC,C ES 
JSR PC’ REL a 
7 IDLE1: T i cel AG ae LAG ENTERED ” 
023710 JSR PC, KSR :SERVICE THE KEYBOARD 
BR rot SY TEM BUSY 

1 000004 172616 1S: BIT r , aSWR : -PERE — SUMMARY 
3353 001214 Tor ATIN i TO. TYPE THE PERFORMANCE SUMMARY 7” 

Ss 1214 CLR 3 oe N AR wre INDICATOR 

e614 J PC. STATPR 

336 1574 2s: TST PARQ a Y hs HE PARAMETER QUEUE ” 
3368 BEQ 33 
3368 15 MOV ARQ, RO BLOCK RODRESS INTO RO 
33 16446 JSR PC, SELPAR RS FOR NEXT OPERATION 
3371 1574 MOV sPARG Ri ria o reaaecit TABLE. 
337e 017530 JSR PC, CMPRES TER QUE 

23 005374 3S: IMP MAIN + CONT INGE ie P 

7 ;SETUP TO REFORMAT AN ERROR SECTOR 
33 006374 77 OQO0001 172536 REFMT: BIT P aSwR AD Y SWITCH SET 7” 
as ie Eee Bey 

404 000200 172526 BI r aswR ‘SWITCH 7 SET ? 
le 1051 REFMTX 
4 7 F aber & DATA ORDERS ALLOWED ” 


£ 


SBRRGES 
; 
: 
: 
8 


ROBE RE 
ts 


72 000100 MOV 


: 
Peeeecee 


Hae YLINDER 
=TRACK ADDRESSES 

vB ( 

ate Bop404 CaP MASDL 8eb0- a, ) ee acc tow BE MARITTEN ? 


pornos 000102 RANSFER SIZE INTO THE DPB 
Seer 000074 


io 
—— 


saehidaseauenaeaee 

sialon 
Se 
Mai 


JSR TA 
SG2 il 000075 MOVB RS’ SNPATC(RO ‘ BATTERN C TO CONTROL BLOC 
poe a1g7e0 477227 000104 MOV a-{ xT (RO :SET BRN CODE, T SELECTED ENDICAT OR 
O0b6 14 01 1574 MOV sPARG,R1 SET TO SEE IF BLOCK IN THE PARAMETER QUEUE 
aes 2s: TST (R1) :SEE IF AT END OF TABLE 
Boeess bende Fe ORD CR 
i CMP RO, (R1)+ i SEE F BLOCK AT PRESENT POSITION 
3399 001374 BNE ; 
3400 906530 41 CLR -(R1) :CLEAR THE ENTRY 
3401 5 37 017530 JSR PC, CMPRES ; COMPRESS THE TABLE 
02 006536 000207 REFMTX: RTS PC :RETUR 


WWW) 
SLL 
oO 


oc 
mst 


;PROCESS THE ORDER TERMINATION 
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Ss 


SEPPEPEPPP SP PEPE LESS 
gaggIONONSE eR TEE BoBe 


= 


eee ase: 


BIRR 
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Pil SEQ 9064 


Bag Ade925 _— — Ta STArCR (ROD ibe preemenes oe eb aN ERROR 
Borsee pae7 100000 006234 Bit agiris, ,SRPCS1CROS— E IF ’SC’ SET 
oe 769 040000 000234 Bie aeIT34, | SRPCSL ROSEN SEE F TRE’ SET 
c 040000 ocoe46 I sBITi4, » SRPDS1 (RO) ; SEE F ERR’ SET 
Bo? 012770 1S S ; , CHECK Bue ERROR BITS ANYWAY 
7 1 ISR PC} CK ino RROR BUS ADDR & WC 
Beeess Bpioge 172320 IT pa: B-CORPARE. 
095 013154 JSR MPAR NO ERROR, COMPARE DATA 
006626 000207 2s: RTS : RETURN 


;ORDER TERMINATED WITH AN ERKOR - PROCESS THE ERROR 
006630 ORe7e0 000200 O00016 ERPROC: BIT perro? »STATUS(RO) ;DONE BIT R BID" T C ETE NORMALLY 
boee48 G0013? co7ee4 She = Bone iBRobesS” ERROR Rit "Bone? Bri Ses 
;PROCESS ORDER COMPLETION WITH "ERROR’ & ’DONE NOT’ BITS 
44 7 : OIT BIT TATUS(RO) F DRIVE WAS UNSAFE 
Baers 010000 OO00016 ERPRCI: BI ge I 1e. , STATUS(RO ASE I 


S2 
006654 032760 O04000 cOo0016 BIT sen Le statuscRos jPARITY RROR OCCURRED 
Boeees B94978 002000 000016 I 10, STATUS(ROS rr ATad TY ERROR? 

006672 O010S6 BNE BR IF THE ONE 

74 ate 001000 00016 BIT srt TR »STATUS(RO) 5 - TIMEO 1 
606704 o4o0c2 000016 BIT 14!BITO!, status: baa) . VE WENT OFFLINE ? 
pests Bo3324 000004 of0016 pal cette STATUS(RO)’ T REQUEST TIME OUT ” 
006722 GO1L4y BNE ph IF IT DIO 
006724 90002 RTS pe’ *ERROR. RETURN 

;DRIVE IS PERSISTENTLY UNSAFE 

006726 104401 001165 PUNSAF: TYPE , SCRLF ;CR- 
006732 104401 S410 TYPE "EMle CO RIVE UNSAFE’ MESSAGE 
0067 0440 2673 TYPE ” DRNUM DR NUMBER 
00674 137 1246 MOV UNIT, -(SP) i YN T FOR TYPEOUT 
006746 104403 TYPOS GO TYPE- SCT. 7 SCII 
OO 751 ‘Bvt 5 Pn g C EASING ZEROS 

teers Reet Jere pe the Pe OF ERROR MESSAGE 
eae 104414 Baegco DISPLY ,EMie rea stent bevice UNSAFE MESSAGE 
006766 0047 ? 020244 J R PC, LINES NE ¢ OF ERROR OR MESSAGE 
tet Sa 737 BS 326 Pert TNed pain Nt Hie q SF Thee ERHOR SAGE 

7002 004737 023424 ISR PC; INCTOT + INCREMENT TOTAL ERROR COUNT 

CO7006 004727 021762 TSR PC’ LINE? : PRINT CINE ? OF ERROR MESSAGE 


SEG 0065S 


;OROP THE ORIVE 


;UNCORRECTABLE MASSBUS PARITY ERROR OCCURRED 
F 
i 

;"FATAL’ MASSBUS PARITY ERROR OCCURRED 
- 
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000016 


000244 


000e46 - 


000250 


o002S0 


000250 


000250 


000250 


o000eS0 


o00esc 


o00e50 


o000eS0 
ooce4é 


000250 


o00e44 


;PORT REQUEST TIMEOUT ERROR 


PRTIM: J PC, LINEI ; TYPE LINE 1_OF 
0 SPLY EMIS ‘PRINT PORT TIME 
PC, LINES STVPE LINE 2 OF I 
JSR PC,LINES sTYPE L OF T 
ISR povtd 4 :T LINE 4 OF T 
JSR PC! INCTOT INC NT TOTAL 
I PC; LINE7 : TYPE LINE 7 OF 
RTS PC : RETURN 


;PROCESS ORDER COMPLETION WITH "ERROR’ & ‘DONE’ BITS SET 


DONE: BIT #BITO4!BITO3, STAT (RQ) “UNSAFE OCCURRED 
BEQ . +6 ; if notre 
IMP UNSAF ‘REPORT UNSAFE 
BIT _ Ripniemnain ;IS ’WCE’ SET ? 
BT IT14,$RPDS1(RO) -CHECK ‘ERR’ 
se Moe! 
MP RFER : ces * TRE’ 
1S: BIT #81T08,SRPERI(ROS ;’HCRC’ SET? 
BEQ + ;BR IF NOT 
IMP HC CER : OcESS *HCRC’ 
BIT #BI1TO4,SRPER1(RO) ;*FMT’ SET? 
BEG . +6 ;BR IF NOT SET 
INP CKFMT ‘CHECK FORMAT ERROR 
BIT #B1T07,SRPER1(RO) ;’HCE’ SET? 
BEQ . +6 ;BR T 
IMP CKHCE *CHECK ’HCE’ ERROR 
BIT SBIT13,SRPERI(ROS ;°OPI’ SET? 
BEQ + ;BR IF NOT SET 
IMP OPTER ‘REPORT ‘OPT’ 
BIT #B1T3,SRPERI(RO)’: PAR’ SET? 
BEO .+ ;BR IF NOT SET 
IMP P ER :REPORT 'PAR’ 
BIT ®BITS,SRPERI(RO)’: WCF’ SET? 
BEQ . +6 ;6R IF_NOT SET 
IMP WCFER ‘REPORT WCF’ 
BIT #6IT10, SRPER1 (ROS i’ {RE SET? 
BEG . +6 ; NOT SET 
IMP IAEER : T 'IAE’ 
BIT #BIT11,S$RPERi(ROS ;"WLE’ SET? 
BEQ +6 ;BR_IF NOT SET 
IMP WLEER ‘REPORT *WLE’ 
BIT #6179, SRPERi(RO)':’ACE’ SET? 
BEG -BR IF NOT SET 
BIT #81710, SRPOS1 (ROS -*LST’ Be ? 
BEG 2 ;BR IF NOT SET 
RTS PC ;’ROE’ & 'LST’ SET, EXIT 
2s: BIT #81712, SRPERI (RO) ;SEE IF ’OTE’ SET 
IMP OTEER *REPORT 'DTE’ ERROR 
BIT #BITI4Y,SRPCS2(RO} ;SEE IF "WCK’ SET 
BEG + ;BR'IF NOT SET 
IMP WCKER tREPORT 'WCK’ 


OUT 


SEG OOEE 
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CZRIDC.P11 1S-DEC-77 10:58 MAIN PROGRAM SEG 0067 
3574 36 00S760 000250 ee SRPERI (RO) ;SEE IF wooek’ SET 
ee 
44 00757 
= ae 20 2 702305 000276 iy Getter, swotesceg) REE on OCYL’ SET 
es 

3579 00 137 012332 IMP SKIER REPORT NOT Oe 

3280 007564 000137 011040 MP DRVER REPORT DRIVE ERROR 

3265 ;PROCESS DATA (’DCK’) CHECK owen 

3280 = 907570 922760 010042 000300 OCKER: CHP #10042, SRPEC1 (RO) ar’ Yet 1D POSITION COUNT ? 

3e6e ata: z 000300 ST SRPEC1(RO) Rees COUNT C ? 

3283 sere oi dee 000302 ore sk C2(RO) Fel VR PATTERN REGISTER ” 

30 7614 737 1S: SP PC, LINE1 : NE OF ERROR MESSAGE 

3eq; 5 ae hate DISPLY Prt :T C T BANE 

323¢ 7 geed4 ISR PC, INES :T L CERRO MESSAGE 

Seay COPED DI? 53 oo1ese ABV OS RETRY 1a aetna! 

4 7 015400 PC’ SRETRY : T R 

ee Boru Beads By iRET Y Me,3 Rov, SUCCESSFUL 

35 7 021700 ISR PC, LINEGC j TYPE bint. 6C RROR MESSAGE 

3238 poseee Bos737 021706 2s: FER , LINEGD 'T CINE §5 OF ERROR MESSAGE 

3600 007662 0047. 021762 35: JSR PC’ LINE? j TYPE LINE 7 OF ERROR MESSAGE 

3602 007678 7 i o20042 us: JSR PC, SPOTCK SEE IF ERROR AT A oAaBAe, SPOT ON THE PACK 
3604 007676 1 7 o00024 000001 : CMPB SCODE (RO), #1 :IS ORDER A WRI EO CHECK ? 

a 77) AOA oe WCKER + OE OORT ERROR R WRITE CHECK PROCESSING 
aE Gee os: FER PEcine «BRUNO. Tne Or ERROR nesSaGe 

Bos Oorres Obzar Denes peweri: jek” PE.Cineg RINT LINE 8° OF Ennog nessace 

Sil Gores Oourar Oe13ee Jon PEVLINES PRINT LIN 9 Ot ERGOR RESSACE 

3613 DOT aS BO 3535 eta 001250 MOV RetTiSte Ti2!BITbee SC ORB E OR 

3614 007750 : 010106 000250 BIT oe ee jCHECK *DTE’ & ’ECH’ 

Sle GO7reR BONY? oeisse Jer Beuince © BRIT Ung 5 oF ennon. wessace 

3618 007766 000020 o01252 1S: MOV #16. ,RETRY TRE TAY COUNT 

3619 1 CL Ri jRI IS SET CODE POINTER 

3620 007776 032760 o00002 000262 BIT #BITOL, ,SRPDT(RO)’ ;1 <DRIVE AN RPOG ? 

36¢e 013006 ea 000007 om HOV RL = i INCR ¢ T RPOG OFFSET CODES 

3E53 Bt BBtE ret 83896 2 JSR pg’ RE OR : yee Ss THE ERROR SECTOR 
35¢ Blonee ised poonid ive (BENS BTEC aD} igeCTO Pec br ERROR SECTOR 

=b27 010032 016060 boue72 000012 MOV SRPCCLRBS SCYLIROD RESENT CYLIND 

3628 010040 O26060 o00002e2 o00020 CMP SSSEC(RO),S$WROL(RO) ',SEE IF TRANSFER LENGTH LESS THAN i SECTOR 
3629 O10046 103010 BHIS 155 BR 1 IT IS; USE PRESENT TRANSFER LENGTH 
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C(RO), L(RO) ;CHANGE TRANSFER SIZE TO 1 SECTOR 
ShRDL (RD) BOR : :SETUP WORD COUNT ons” OPERATION 


Sh Pace COR Ne wt "BUFFER AD ADDRESS 


aes) 
PC. GETBUF 

eat aoe y BUFFER. , oat TO DPB 

STATUS CRO) iT :! Mf > 

flr sensc we ee" TERMINIATED NORMALLY 
Cc TOT TT TAL ERROR COUN 

a? er RO RROR DURING Re TRY’ 

ERPRC1 
MASK, SRPER1(RO) 


RROR 
$ FE af Cun RENT ER ROR 
aGIT12:61T6, ~ wi a a OR’ DTE’ STILL SET ? 

Vey INC NCREMENT RETRY COUNT 
RETRY, TRY¢1 ? 


F NOT 
bee copcR1) cenohi en MEN eRe T cope. 
: OR IF EAD OF OFFSET TABLE 
a2, RETRY j NEW RY LIMIT 
PC’ OFFST : OFF 
GENDPB+STATUS BEE IF nb NTSHED WITH OFFSET 


33 BR if NO ERROR PERFORMING OFFSET 
PC,LINES :PRINT LINE 8 OF ERROR MESSAGE 
PC; FNCHRD 5 ENE MENT ’HARD’ ERROR COUNT 
PC; INCTOT : MENT TOTAL é 
PC;L :PRINT LINE 7 RROR MESSAGE 
—o CREAN UP AND RETORN® 
438 NE6B i Chen L OF ERROR MESSAGE 
t INE : PRINT OF THE ERROR MESSAGE 
P ’ a 
¢* INCS > INC nENT T’ ERR T 
ECC iC THE RROR USING ECC AND CHECK IT 
Be LINE&D :PRINT LINE OF ERROR MESSAGE 
: INCREMENT ERROR COUNT 
Pe’ TNCSOF NCR nenTe +86e9° ERROR COUNTS. 
#1} FRSTER 3 anor CESSING 'DCKER’ INDICATOR 
PC CHPARD : BRE THE BUFFER 
FRE TERS | ;ERROR | N COMPA ARE ? 
PC, INCTOT i INCREME MENT ort ERROR COUNT 
PC, LINE7 ‘PRINT LINE 7 OF ERROR MESSAGE 
a REFMT REF ORwei THE ERROR SECTOR 


;WRITE CHECK ERROR PROCESSING 
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010362 932760 100000 000250 WCKER: BIT #BIT1S, SRPERI (RO) ai fee TF _OCk" SET ALSO 
6183 864933 reid 58 LINE1 ; RINT Line 1_OF ERROR MESSAGE 
gtest 037 Borsso gigpuy eho SOR EAR ERROR MASK 
194 737 JSR PC, LINES : PRINT Ls - OF ERROR MESSAGE 
1041 737 52 JSR PC'L :PRINT L OF ERROR MESSAGE 
10416 737 1326 JSR PC; LINEY : PRINT LINE 4 OF ERROR MESSAGE 
Se 737 1416 JSR PC; LINES :PR Nt S OF ERROR MESSAGE 
01 737 3424 JSR PC! INCTOT : INCREMENT TOTAL ERROR COUNT 
010432 012737 03 oo12es2 MOV #3, RETRY :RETRY LINIT 
O1 0440 ' 22 015400 JSR PC’ SRETRY RETRY OPERATION 
bigies Blouse 021700 ar By tNESC I FENT BRecdecinc Bae eteoe = 
Bioveo pooseg Cnt70e tt we ma FINleH BaoceSetnc. THe cAROR Ce 
Bioses oposor Coote wt BE we oe) whi Strir-at BAB SPOT ON-Pack mE PACK 
010470 004737 o20200 JSR PC, LINE] ; iit LINE 1 OF ERROR MESSAGE 
010474 37 S644 010522 MOV ae tiee 13$ j ASSUME HAT EM22 WILL BE PRINTED 
010808 760 0000 o00244 BIT #61T14,SRecsecro$ —; I "WK? ALSO SET ? 
01051 1003 BNE 126 ;BR'IF IT DID 
O0:0Sie Gie737 o46s4s 010522 MOV #EM37, 13S i MESSA EEO *DCK’ AND ’WCK’ NOT DURING 
010520 104414 12$: DISPLY ‘TYPE THE ERROR MESSAGE 
010522 13$: -WORD O MESSAGE SS GOES HERE 
010524 0047 020244 ISR PC,LINE2 ‘PRINT LI : OF ERROR MESSAGE 
Bites Oourar Geoese ee RELINES © PRINT LINE § OF Efron nesence 
010540 004737 O21416 JSR PC’LINES *PRINT LINE S OF ERRCR MESSAGE 
010544 0327 100 oo002s0 BIT w6iTOb,$RPERI(ROS ;ECH SET ALSO ? 
o010Ss2 o0144e BEQ 8$ ;FINISH PROCESSING THE ERROR 
010554 012737 oo0020 ool2es2 3s: MOV #16. RETRY *RETRY LIMIT - 16 (10) 
010562 004737 016370 4§: JSR PC. GODRIV !RETRY THE ORDER 
010566 605760 016 cs TST STATUS(RO) :ORDER FINISHED ? 
010572 0017 BEQ S$ ‘BR IF NOT 
010574 190408 BMI at :BR_IF ERROR ON ORDER 
010576 1 001253 INCB ETRY+1 j INCRE NT RETRY COUNT 
bipeds poo4s; Oot 00 Brg FINES FINISH ERROR PROCESCING ~ 
0i06i0 rtetita 001253 6$: INCB RETRY+1 INCREMENT RETRY COUNT 
010614 123737 001252 001253 CMPB RETRY.RETRY+1 DONE ? 
010622 1714 BEQ ‘BR IF AT RETRY LIMIT 
010624 032760 100000 oD0es50 BIT #BITIS,SRPERI(ROS ;’DCK’ SET 
010632 001407 BEQ 7 -BR'IF NOT - DIFFERENT ERROR 
010634 032760 oO00100 ocOoDes0 BIT #BITO6,SRPERI(ROS ;’ECH’ ALSO SET ? 
010642 1347 BNE BR IF IT IS, RETRY ORDER 
g18eeg Bsags 021700 ae Bgrtineec PHN Bt ces thc" Enaonr one 
Bice Blogs 022790 7 getines PENT Mocesine'enecr™” SPO 
010660 004737 oe234e4 gS: ISR PC, INCTOT : INCREMENT TOTAL ERROR COUNT 
O10664 004737 021762 ISR PC’LINE? tFINISH THE ERROR MESS 
O10€70 O00406 BR 118 :EXIT 
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C2RIOC. bit 1S-DEC-77 10:58 SEG 0070 
3742 010672 737 3424 9$: ISR PC, INCTOT ; INCREMENT TOTAL ERROR COUNT 
3743 010676 737 1762 ios: ISR PC; LINE? ‘FINISH THE ERROR MESSAGE 
3744 010702 737 006374 SR PC; REFMT ‘REFORMAT THE SECTOR IN ERROR 
er 010706 000207 118: RTS : RETURN 
3747 ;REPORT ’HCRC’ ERROR 
3749 010710 004737 o2004e2 HCRCER: JSR PC, SPOTCK ;SEE IF ERROR AT PACK BAD SPOT 
3750 O1G714 R sEXTT IF IT IS 
3751 010716 7 0200 SR LINE1 :PRINT LINE 1 OF ERROR MESSAGE 
3752 01070 10414 04557¢ OISPLY Ay 2 {REPORT *HCRC’ anes een 
3033 pies Boa 39 pSeeee 32h Pc, ig t PRINT t TNE OF ERROR sence 
3755 010736 004737 021326 JSR ;PRINT LINE 4 OF OF ERROR MESSAGE 
3 0107%e 032760 040000 000244 BIT eottiae SRPcs2(RO} ; * ERROR 
3528 1 001 BEQ 1$ BR iF NOT 
3758 010752 G04? b21416 JSR but 5 :D1S AY WHICH CAUSED ‘WCE’ 
3759 010756 737 304 1$: JSR PC; INC : INCREMENT ’SOFT’ ERROR COUNT 
3760 010762 737 Qe 424 JSR PC INCTOT : NEREMENT TOTAL ERROR COUNT 
3761 010766 1273? 00 001250 MOV set ; OR MASK 
3762 010774 012737 03 Oo012e52 MOV #3, RET :RETRY LIMIT 
3763 011002 015400 JSR PC’ SRETRY : RETRY ORDER 
3764 011006 ?RETRY NOT SUCESSFUL 
3765 011010 737 1700 ISR C,LINE&C :PRINT LINE 6C OF ERROR MESSAGE 
3766 011014 004737 021762 JSR *LINE :PRINT LINE 7 OF ERROR MESSAGE 
3767 011020 o00406 BR :EXIT 

768 011022 004737 021706 2s: JSR PC,LINE6D :PRINT LINE 6D OF ERROR MESSAGE 
3769 011026 904737 021762 ISR PC’LINE? :PRINT LINE 7 OF ERROR MESSAGE 
3770 011032 4737 006374 JSR C; REFMT :REFORMAT THE ERROR SECTOR 
3771 011036 90020 3S: RTS PC : RETURN 
3773 ;REPORT DRIVE ERROR 
3775 11040 004737 o2 DRVER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
3776 CLIO44 104414 peesae DISPLY Ensd :REPORT DRIVE ERROR 
3777 011050 004737 O20e44 JSR PC, LINE2 : PRINT LINE 2 OF ERROR MESS 
3778 011054 004737 OeDEse ISR PC'LINES :PRINT LINE 3 OF ERROR MESSAGE 
3779 O11060 004737 023424 JSR PC’ INCTOT j INCREMENT TOTAL ERROR COUNT 
3780 011064 004737 021762 ISR PC’LINE? :PRINT LINE 7 OF ERROR MESSAGE 
3781 011070 000207 RTS PC RETURN 
3783 ;PROCESS FORMAT (’FER’) ERROR 
3785 011072 7 000400 O002S0 CKFMT: BIT #B1T8, SRPER! (RO) i HERC: ET ON ORIGINAL ERROR ? 
3786 O11100 6014 BEG ig ;br I NOt SE 
2787 011102 000137 010710 IMP HERCER :REPORT HCR' 2 EF RROR 
2788 911106 004737 022314 1S: ISR PC, READDR T CORRECTED TRACK & SECTOR ADDRSSES 
3789 Olllle 004737 O1S316 JSR PC’ READHD HEADER 
3790 O11116 032737 OO00400 044764 BIT e6iTs, easels ;*HCRC’ SET WHEN HEADER READ? 
3791 011124 001002 BNE 2g ;BR'IF *HCRC’ SET 
2792 011126 000137 012072 IMP FMTER *NO, ERROR IS *FMT’ ONLY 
3793 011132 004737 O2d04e 2s: ISR PC, SPOTCK ‘SEE IF ERROR AT BAD SPOT ON THE PACK 
3794 011136 o4Se BR sEXTT IF 
3795 011140 4737 oO20200 JSR PC, LINE :PRINT LINE 1 OF ERROR MESSAGE 
379e O11144 104414 045776 DISPLY ,EMe4 + READER READ ERROR - FMT BIT DROPPED UP 
3797 O111S0 004737 dede44 ISR PC, LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
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737 1? R PC,LINE7 ;PRINT 7 RR SAGE 
teeta 852595 326 Be Reet RE NeMat tHe PhRSR E fee 
le 000207 6S: RTS PC RETURN 
:REPORT POSSIBLE POSITIONING ERROR 
2 004737 015240 POSER: JSR PC,RECALT ; RECAL IBRATE 
& 004737 00 SR PC; LINE] :PRINT LINE 1 OF ERROR MESSAGE 
bee 414 7372 DISPLY ,EMS1 : PROGRAM DETECTED POSITIONING ERROR 
73, Bethag op EALINES. I BRINY HN. 8c pe‘ Ena nese 
4 052737 OS44S6 Bis este ESL DER :REST ORE THE ogmat Bg 
44 2 2 iS16 Jak P + LINE : PRINT LINE SA_OF THE ERROR MESSAGE 
2g B54737 853495 J2h PE’ INET ; i INE MENT PAPAL RAOR NS Une 
60 4737 022110 JSR PC; LINE7A :PRINT LINE 7A OF ERROR MESSAGE 
4 000207 RTS PC :EXIT 
;REPORT ’OPI’ ERROR 
5 737 o20042 OPIER: JSR PC, SPOTCK ;SEE IF ERROR AT BAD SPOT 
258 35 RTS PC ait Ge IT Is 
574 37 o20200 SR PC, LINE1 ‘PRINT LINE 1 OF ERROR MESSAGE 
poe basa? BeBoud ge pfs i ogtaT FING 2 OF ERROR MESSAGE 
616 737 pecs PET INES PRINT t TNE § OF ERROR MESSAGE 
614 004737 021326 ISR "LINE :PRINT LINE 4 OF ERROR MESSAGE 
bed 7 JSR PC IN OT : NG MENT TOTAL ERROR COUNT 
127 o6o 001250 MOV #61T13, MASK ?ERROR MASK 
632 012737 OO00003 001252 OPIERI: MOV 83, RETRY tRETRY LIMIT 
640 737 015400 ISR PC; SRETRY ‘RETRY THE ORDER 
644 BR 1$ ‘RETRY UNSUCESSFUL 
646 7 7 JSR PC, LINE&C :PRINT LINE 6C OF ERROR MESSAGE 
652 ? i 021762 J R pc, LINE? jPRINT LINE 7 OF ERROR MESSAGE 
660 00473? 021708 1$: ISR PC, LINEGD PRINT LINE gD OF ERROR MESSAGE 
p54 eeteats 852555 328 P Bee aT > RE Namat Fue ohRDR OE eR 
674 900207 RTS PC RETURN 
:REPORT ’DTE’ ERROR 
676 004737 o20042 DTEER: JSR PC, SPOTCK ; SEE IF ERROR AT BAD SPOT 
702 000207 RTS :RETURN IF IT I 
704 004737 o20200 JSR PC,LINE] :PRINT LINE 1 OF ERROR MESSAGE 
710 104414 046304 DISPLY ,EM3e :’DTE’ ERROR 
714 000137 007722 IMP OCKER1 :FINISH PROCESSING THE "DTE’ ERROR 
;REPORT 'PAR’ ERROR 
0 004737 oO20200 PARER: JSR PC,LINEL ;PRINT LINE 1 OF ERROR MESSAGE 
24 104414 046337 DISPLY A *REPORT ’PAR’ 
G OOtsas «| pSpsee fe es SPRINT CINE SECOF ERROR MESSAGE 
o Bbd53> © BE9S3E eR pe LENS iPRINT CINE Scor ERROR meeeace 


004737 Oe34e4 JSR PC; INCTOT ; INCREMENT TOTAL ERROR COUNT 


2 
See: 


ate 
OO0000000 + 


aay ea ey er eer ee er ae 
ob bs be be 


S 


b= b= be bo bbe he be ee 
Oo 


BODDDDDD DD 


ae NOW £Wwrue-O 


mie 
0000000 


Suna 


ees 


O0O0000 


SEP 

wo 
OHOOOKOOO0O0000 
eh et 


bh he ee 
Howe Lower onN 


QXO0000000 
TORNEOLOLO 


6 MLT OF LGC MACY11 30(1046) 15-DEC-77 11:03 PAGE 74 
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12737 0000 001250 MOV #81703, MASK ;ERROR MASK 
Bissas vidutete Bo13 2 MOV Hea ‘RETRY LIMIT 
004737 015400 ISR PC, SRETRY jRETRY ORDER pa 
7 021700 Fee C,LINE&C i RET Ry UNSESSPOL 
094737 021762 1$: JSR PC’ LINE? :PRINT LINE 7 OF ERROR MESSAGE 
900207 RTS PC ‘EXIT 
004737 021706 2s: JSR PC,LINE6D :PRINT LINE 6D OF ERROR MESSAGE 
000772 BR is :FINISH ERROR MESSAG' 
;REPORT ’IAE’ ERROR 
004737 o20200 IAEER: JSR PC, LINE! ;PRINT LINE 1 OF ERROR MESSAGE 
104414 O464S6 DISPLY 35 :REPORT 'IAE’ 
004737 O20244 ISR PC ,LINee :PRINT LINE 2 OF ERROR MESSAGE 
004737 021044 JSR *LINESF ‘PRINT LINE 3F OF ERROR MESSAGE 
004737 Oes4e4 JSR PC, INCTOT : INCREMENT TOTAL ERROR COUNT 
004737 021762 JSR PC; LINE? :PRINT LINE 7 OF ERROR MESSAGE 
000207 RTS PC RETURN 
;REPORT *WLE’ ERROR 
004737 020 WLEER: JSR PC, LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 
104414 651 DISPLY ,EM36 *REPORT *WLE’ 
004737 O20244 ISR PC, LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
004737 3424 ISR PC; INCTOT S INCREMENT TOTAL ERROR COUNT 
004737 021762 JSR PC’ LINE7 !PRINT L 7 OF ERROR MESSAGE 
000207 RTS PC : RETURN 
;REPORT FORMAT ERROR 
737 02 90 FMTER: JSR PC, LINE] ; PRINT LINE 1 OF ERROR MESSAGE 
104414 6125 DISPLY fee :FORMAT ERROR 
004737 de0244 ISR PC, LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
004737 Oe06S2 JSR PC; LINES :PRINT LINE 3 OF ERROR MESSAGE 
004737 021326 35R PC LINES * PRINT LINE 4 OF ERROR MESSAGE 
32760 ocoe44 BIT wetT14,SRPCS2(RO} ;’WCE’ ERROR ALSO ”? 
001402 BEQ 1$ :BR' IF NOT 
004737 O21416 ISR PC,LINES :DISPLAY WORDS WHICH CAUSED ‘WCE’ 
004737 Oe1Si6 1S: JSR PC’LINESA :PRINT LINE SA OF ERROR MESSAGE 
0047 023424 JSR PC’ INCTOT ‘INCREMENT TOTAL ERROR COUNT 
004737 021762 JSR PC; LINE? :PRINT LINE 7 OF ERROR MESSAGE 
00020 RTS PC 
;REPORT HEADER COMPARE ERROR 
004737 oe20200 HCEER: JSR PC, LINE] ;PRINT LINE 1 OF ERROR MESSAGE 
104414 O46152 DISPLY ,€Me7 HEADER COMPARE ER 
004737 O20244 ISR PC, LINE2 :PRINT LINE 2 OF ERROR MESSAGE 
004737 Oen6se JSR PC;LINES :PRINT LINE 3 OF ERROR MESSAGE 
004737 021326 JSR PC'’LINEY ‘PRINT LINE 4 OF ERROR MESSAGE 
032760 O4000C ocD0244 BIT wBIT14,$RPCS2(RO)S  ;’WCE’ ERROR ” 
001402 BEG 1$ ;BR'IF NOT 
004737 O21416 JSR PC, LINES :DISPLAY WORDS WHICH CAUSED *WCE® 
004737 OelSié 1$: ISR PC'’LINESA :PRINT LINE SA OF ERROR MESSAGE 
004737 023424 75R PC’ INCTOT ! INCREMENT TOTAL ERROR COUNT 
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1S-DEC-77 10:58 MAIN PROGRAM SEG 0074 
20 004737 021762 JSR PC, LINE? ;PRINT LINE 7 OF ERROR MESSAGE 
24 pore ae 006374 JSR PC, REFMT ;REFORMAT THE ERROR SECTOR 
30 7 RTS PC ; RETURN 


;PROCESS CONTROL/INTERFACE TRANSFER ERROR 


ee 004737 o20200 TRFER: JSR PC, LINE1 ;PRINT LINE 1 OF _ERROR MESSAGE 
g 14 6627 DISPLY ,EM4O *RH11 UNIBUS TRANSFER ERROR 
737 o244 ISR PC, LINE :PRINT LI OF ERROR MESSAGE 
eee 737 Oe ISR ane 3 i PRINT -: OF ERROR SAGE 
= 737 1326 JSR PC; LINEY :PR NT 4 OF ERROR SAGE 
256 004737 Oes4e4 JSR PC INCTOT ‘INCREMENT TOTAL ERROR COUNT 
gebe 932760 121400 000244 BIT 8 t 1S!B1T13!B1T9/8118, SRPCS2 (RO) ;’DLT’,"UPE’,’MXF’, *MOPE’ SET ? 
ge7e 012737 000003 o01252 MOV #3, RETRY BE Tay LIMIT 
23 7 001250 CLR mask ;CLEAR ERROR MASK 
2304 904737 015400 ISR PC, SRETRY :RETRY THE RATION 
2310 BR ?RETURN HERE IF RETRY UNSUCESSFUL 
esle 737 021700 ISR PC, LINE6C : PRINT LINE 6C OF ERROR MESSAGE 
2316 BR 2s :F INISH HE ERROR REPORT 
2320 004737 021706 1S: JSR PC, LINED :PRINT LINE 6D OF ERROR MESSAGE 
2324 004737 Oel76e 2s: JSR PC’ LINE? :PRINT LINE 7 OF ERROR MESSAGE 
2330 000207 RTS PC 
;PROCESS 'SKI’ OR ’OCYL’ ERRORS 
2332 004737 o20200 SKIER: JSR PC, LINEL ;PRINT LINE 1 OF ERROR MESSAGE 
2336 104414 047303 DISPLY A :*SKI’ OR "OCYL’ E OR 
2342 004737 Oe0244 C,LINE2 :PRINT LINE @ OF ERROR MESSAGE 
2346 004737 Oe06E6 ISR PC’LINESS :PRINT LINE 38 OF ERROR MESSAGE 
2252 004737 Oe34e4 JSR PC? INCTOT tINCREMENT TOTAL ERROR COUNT 
2356 004737 023354 JSR PC; INCSKI : INCREMENT ’SKI’ OR *OCYL’ ERROR COUNT 
2362 004737 Oerll0 JSR PC’LINE7A :PRINT LINE 7A OF ERROR MESSAGE 
2366 000207 RTS PC 
;REPORT WRITE CLOCK FAILURE (’WCF’) 

2370 004737 o20200 WCFER: JSR PC,LINE1 ;PRINT LINE 1 OF ERROR MESSAGE 

74 104414 O46414 DISPLY ,EM34 :REPORT WRITE CLOCK FAILURE 
2400 0047 020244 PC, LINE2 : PRINT LINE OF ERROR MESS 
2404 0047 020660 JSR PC’LINESA :PRINT LI OF ERROR MESSAGE 
2410 004737 021326 JSR PC; LINEY PR NT LINE 4 OF ERROR 
2414 737 JSR PC} INCTOT i INCRE NT TOTAL ERROR COUNT 
seo 7 01504 JSR ¢.PRTB ; SEE F BAD SECTOR TO BE PRINTED 

127 901252 MOV #3’ RETRY :RETRY COUNT 

2432 012737 40 001250 MOV #BtTOS, MASK :ERROR MASK 
e436 0047 32 15400 JSR PC, SRE TRY ;RETRY THE ORDER 

44 BR 2s ‘RETURN HERE IF RETRY UNSUCESSFUL 
2446 004737 021700 JSR PC,LINEGC ‘PRINT LINE 6C OF ERROR MESSAGE 
ese 0047 37 021762 iS: JSR PC‘ LINE? :PRINT LINE 7 OF ERROR MESSAGE 
2460 004737 021706 2s: ISR PC, LINE6D ;PRINT LINE 6D OF ERROR MESSAGE 
2464 000772 BR 1§ 


;PROCESS DRIVE UNSAFE ERROR 
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4 8 1 UNSAF : Sk PC,LINEL ;PRINT LIN OF ERROR MESSAGE 
1 SPLY af : REPORT UNSAFE 
1 SR yk 2 : PRINT OF ERROR MESSAGE 
1 J : :PRINT LINE 3 OF ERROR MESSAGE 
1 JSR PC; NC OT ; NCRE NT TOTAL ERROR COUNT 
1 oo12s2 MOV 83, RETRY ?RETRY ORDER 

wee 1 JSR PC, TRY RETRY 
i ae LINEGC tBRINT CIRE SRESSAGE 

4 1 aR : :CONT athe ete cee ROB, Ne 

4 1 1$: SR , LINE6D : PRIN RROR a 
12540 2s: JSR PC’ LINE? ;PRI NT Nt LINE 





4036 
403 
40 12546 NOMTCH: TSTB FRSTER ;FIRST ERROR IN T CTOR ? 
uo38 igeds BNE BR F NOT OR F PROCESSING *DCKER’ 
4040 012554 ISR C LINE! : INE NE Od "ERROR 
4041 012560 DISPLY AY ;* CAN’ H DATA WITH PATTERN’ 
4Ove 12564 ISR ia LINES : PRINT uN Sao ERROR MESSAGE 
404 Dies ISR PCL NE3A jPRINT L OF ROR MESSAGE 
4044 012574 JSR *LINE4 ?PRINT L 4 OF E 5 
4045 O01 BR :CONTI ESSING NG ERR 
4 1 1$: DISPLY ,EM43 :*CAN’T MATCH DATA WITH PATTERN’ 
404 1 DISPLY /SCRLF ?CR=-L 
4 Olebie 2s: DISPLY ‘LINSI HEADER FOR DATA PRINTOUT 
01261 MOV Ri,-(5P) ; RODRES OF 
Bt JSR PC, LINOCT ;TY 1 
Rog tne ces ADORE oF oro 1 
JSR PC Thoct :T WORD 1 
DISPLY ,S$CRLF :CR-LF 
1264 MOV R1,-(SP) ; SS OF WORD 2 
1eou4 JSR PC'LINOCT :T WORD 2 
12650 DISPLY LINSP S S 
12654 MOV tR1)+, -(SP) ; SS OF WORD 2 
O1 JSR PC .LINOCT :TYPE WORD 2 
1 04414 DISPLY ,S¢CRLF :CR-LF 
1 OL MOV R1,-(SP) ;ADDRESS OF WORD 3 
126 IS PC’ LINOCT :TYPE WORD 3 
012674 LOw4i4 DISPLY ,LINSP : SPACES 
0127 1214 MOV tR1)+ 5iSP) :ADORESS OF WORD 3 
0127; 7 ISR PC Lhoc : TYPE WORD 3 
01 Touts DISPLY .SCRLF :CR-LF 
Ole7i2 010146 MOV R1,-(SP) :ADDRESS OF WORD 4 
Sie7 14 004737 JSR PC LINOCT ; TYPE Wo 
O12? 104414 DISPLY ,LINSP : SPACES 
O 7e4 012146 OV tR1)+,-(SP) ;ADDRESS OF WORD 4 
12726 Bags 3s JSR PC LINocT ; TYPE _WO 
012732 104414 DIsPLy ,S§¢RLF :CR-LF 
012736 062701 ADD b<252.#2.>,R1 : INCREMENT pByFFER POIN 
Ole7He 605002 CLR Re CLEAR TO COMPARE" COUNT IN R2 
12744 11273 MOVB #1, FRST § FeRST ERROR NCDICATOR 
Ole7S2 112737 MOVB s-1, FRSTER+1 ie eRgoR’ FOUND { 
012760 613737 MOV CMPLMT, LIMIT :RESET THE EOHPORE ERROR TYPEOUT LIMIT 
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838 012766 000207 RTS PC ; RETURN 


4086 ;CHECK ERROR BITS IN THE RH11 & RPO4/S/6 REGISTERS 
12770 é 060000 000234 CKERR: Bie #60000, » SRPCS1(RO) E ier se or "MCPE’ SET 
: iis 177400 000244 #177400, erocsecniet : FL ERROR BITS IN CS2 SET 
4086 1301 000250 eat SRPER1(RO) ANY ITs IN ERI 
13014 BNE 1 ian tvs T 
3388 i 1 ° 000274 S R2(RO) Ts yin ER2 ? 
1 000276 ai R3(RO) soy BAY BIT N ER3 ? 
4093 1 141 BEQ BR I 
1 7 g2g200 1s JSR LINE ; NTL 1 OF RROR MESSAGE 
4 1 104414 os DISPLY ,EMS4 € T T 'SC’ OR "TRE’ NOT SET 
4094 O1 7 4 ISR PCL 2 :PRINT L g oF RROR MES 
4095 O1 7 Se I5R PC/L :PRINT L OF ERROR MES 
4096 1 ? 1326 JER peat 4 :PR NTL 4 OF RROR SSAGE 
4 1 7 3424 ISR PC; INCTOT : INCREMEN NT T TOTAL ERROR COUNT 
1 7 1762 JSR PC; LINE ; IN LINE ERROR MESSAGE 
40 13066 000207 2s: RTS ; RETURN 
11 :CHECK BUS ADDRESS REGISTER & WORD COUNT REGISTER 
4103 013070 005760 000236 . CKBUS: TST SRPWC (RO) ;CHECK WORD COUNT 
4104 013074 1010 BNE ; F NOT ZERO 
4105 O1 78 000020 MOV (RO},-(SP) j NGTH 
“18% 813181 BREBIE soon SB SBurcnp), csr), ao" tne SraRPINe CSc yon 
4108 13119 DeebeO 000240 CHP (SP) +, SRPBAC FER 8 RE Bore ss PROPER 
4110 13118 004737 920200 18: ISR LINE NT NE 10 1 OF uBRROR NE MESSAGE 
4111 O131 1 14 5 DISPLY a "AODRE INCORRECT 
dite 012126 7 4q ISR PC, LINE2 : LINE O8F WORROR Ou SSACE 
411 O1313e 737 10 JSR PC, LINE 3D SPRINT LINE oor ERROR MESSAGE 
4114 0131 7 1326 1SR PCL NEW :PRINT L 4 RROR MESS 
4115 O1 142 004737 3424 JSR PC; INCTOT i INCREMENT TOTAL ERROR COUNT 
4118 13146 004737 1762 ISR PC’ LINE? ‘PRINT LINE 7 OF ERROR MESSAGE 
qui 0131S2 9000207 2s: RTS PC 
4118 ;COMPARE THE BUFFER 
41 13154 7 000004 o00024 CMPAR: 8sITB wBITO2,S$CODE(RO) ; F READ ORDER 
41 6131 barons Bae is i if IS 
4123 013164 000207 RTS Cc RETURN 
digs 131 33 901300 18: cLR FRSTER :CLEAR ‘FIRST oERROR” INDICATOR 
41 131 165740 CMPARD: BIT #SWwO!, ASWR :1S SWITCH 1 SET? 
415? Ol 5207 RTs Be YE 4, DONT COMPARE 
i138 1 7 1 1S: clk RCTR :CLEAR RROR COUNTER 
41 13210 16 1 MOV BUF(RO),R1 : BUFFER 
4130 013214 O1 20 o01212 MOV DL(ROS,CMCNT °;WORD OUNT 9 WORKING LOCATION 
413i G1 3¢¢2 6037 eb 00i31e ADD RPWC(RS)'’CMCNT :CALCULATE ACTUAL WORDS TRANSFERED 
4132 0132 16027 le 001314 MOV SCYL(RO),CMCYL ;CYLINOER ADDRESS WORKING LOCATION 
4133 013236 02727 O10000 90:314 BIS e81T12, CMCYL :SET FORMAT BIT 
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4 3244 001316 MOV SSEC(RO) cMSEC ;SECTOR 8 TRAC K ADDRESSES TO WORKING LOCNS 
350 — id cere ut iEbavER t biliterge IN MIT VALUE 
001276 CMSTR: MOV s-1 ZROIND ; + 8, INOIEAT br 
#€L 
a 


oo0022 MP CMCNT , SSSEC(RO) Oc pie 24 BS THAN ONE SECTOR 7? 
MOV MCNT , Re Than? USE REMAINING BUFFER 
Hage 8: Son ae 
eae Zee & parae 
CYLINDER 


pen 
;BR IF COMPARE OK 
ICOMBERE SECTOR & TRACK 


| aul 





eet eet at tet ant oa 


2 
ees 

! 

3 


am 
: 
Buea 


B38 
Nt 
-_ 
oO 
ros 
2 
Foe 
tu 
A 
itd 
o3aAwo 
=v 
DBO 
— 
~w 
+A 


o.8 
= cme 

m 

3 


T IS 


mam 


SELLELSLELELESESLELLESELEL 
ee he he Be hs be he ae be Be ban Bae Bae Bae fee ae ee be Be he Be 
i] 
ADBNX 


DOVRREOK BSA OU FIN G0o VENLOV ODOM LO OSV L HOB IRRE & 


3S: T + CHE KEY WORD 
0134 TER pe S$ ‘REP Fhe RROR 

4§: a4" R LENGTH FROM SIZE 

. BLE CMPRX :SUBTEA IF 


DOOOOOHOOKOOOODOOOH00000000000000 


oe be b= eB * bb b= Fb Ps Fe he Oe ee 


; SEE Ad: At TEAST 4 MORE WORDS TO CHECK 


gat a T ie 
ee oe eae oy 


4 
y 

4 

41 

41 

41 

41 

41 

41 1 

giee OL 

41 1 RTS PC ; CHECK TER HE HEADER 

4 Bias 014224 CMDAT: pore Fon a pa 

4 O1 012546 i: R C,NOMTCH RE : TEEN NO NO MATCH WITH PATTERN MADE 
41 350 $: v (R4) RS :BOORE TERN BON ABBR S IN RY 
41 Bt 000020 . MOV 20 ; I Ba ERN Lapa NTER 

4174 Ot G22125 3s c (RIS+, (RS)+ jCOMPARE BUFFER WITH PATTERN 

4 i 4 o18 001306 rey PactrR : ERR RS DETECTED ? 

41 1 398 o00010 165440 Bit #SW3, aSWR ; 1TcH"3 tT? 

41 1 1402 BEG 4 :BR IF NOT SET 

41 013502 73? 013702 JSR PC, CMPRT ;DISPLAY THE WORD 

41 O1 age 4S: DEC Re : DECREMENT i COUNT 

41 1351 4 6 g : N AT 

41 01351 303 DEC R3 :DECREMENT PATT POS COUNT 

41 13514 4361 BNE 3$ :BR I NOT AT pao OF PATT 

41 13516 900 § R es RES ART T TTERN 

41 1 761 177776 S$: ST -2(R1) j1S M CCOMPARED CHARACTER=0 

41 01 35e4 801410 BEG 6$ :B YES 

4} 013526 127 177777 001276 MOV #-1, ZROIND :SET NON-ZERO MISCOMPARED INDCATOR 


00S237 001306 INC ERCTR ; INCREMENT THE ERROR COUNTER 


EER Ibe Pat 


41 


£ 
- 


1 


SEESELESLELL 
he ee ee 
BERS BROR Rpae 


OOOOOOOCOOOOOCOO00O000000000 


a Te ae 


SuSERRRteReisn 


& 


4205 


e005 2 
ry 
£5 


OOOOOOOOOOSOOSOOOO00000000 


ee ee ee eee 


£ 
Oo 
- 
tT 


£ 


RPO4/S/6 


elk? site 


er 
ae 
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6$: 


7$: 


CMPRX: 


ee thorn 
iy 
_ 


BLO CMSTR 

CL k c 

INC 

C cere» 19 
tRe EH RK 

NC CMCY! 

MP CMST 

Et es 


; TYPE DATA COMPARE ERRORS 


CMPRT: 


1$: 
2$: 


ist SAVERI 
ic Faster 
BMI 1$ 

ISR PC,4S 
JSR PC; 8$ 

aR 3$ 

MOV R1,-(SP) 
MOV RS’ -(SP) 
MOV SAVER], Ri 
MOV SAVERS,R 
ISR PC,4 

ISR PC 

CLR SA 

CLR SAVERS 
MOV (SP)+,RS 
MOV caPasen 
JSR pPC,8 

RTS PC 

TSTB FRSTER 
BMI 

BNE 54 

ISR PC, LINEL 
DISPLY ,EM4e2 


ie 
1 THE ZERO ae tines 
See wor 


NY A 
ef “ALL E =ZERO 
SP ier BP 

F_AT ENO 

} NO HEADER & DATA 


Bs 1 de NOORESS coc 
:CON ui H COMPARE 


;PRINT SAVED VALUES 7 

: F NOT 

$ a T ERROR? 

;BR_IF NOT 

;PRINT INITIAL MESSAGE INFO 
;PRINT REMAINDER OF MESSAGE 
s;EXIT 

;;PUSH R1 ON STACK 

3 AP UBH RS ON STACK 

‘DISPLAY SAVED Ri 

DA AY SA RS 

hay 


Bh RPE AO 


IF PORST ERROR AND PROCESSING ‘DCK’ ERROR 
OF ERROR MESSAGE 


;BR 
;PRINT LINE 1 
;DATA COMPARE ERROR 


T ZEROS ? 


SEG 0078 


A 


OOOOOOOOOOCOGCOOOOAB000000000 - 


Cyt, 
bb bb be bb 00 bo = bb bo he I be bd 


SEaR ¢ 


SEEECLELSLELES 33 


RRO? 


O0000000000 
i ee ee 


O07 
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iscpee-7 1 ROG SEQ 0079 
7 44 ISR PC, Co Sn s PRINT LI gor £ ERROR MESSAGE 
JSR ‘PRINT L OF ERROR, fi MESSAGE 
7 i JSR Pe, LI ; PRINT : 4 OF SSAGE 
iO AER MESSAGE OF 
104414 051365 Ss: ISPLY “oa : R ME PROCESSING ’DCK’ ERROR 
teas Osiaie 6s Biepty |’ PIneH iT SPLAY HEADER 
o34343 001300 ng nov bet, FRSTER Set RROR FLAG 
6 00i310 Bs: Tet MIT :T QUT LIM T REACHED ? 
4066 ° 001310 2 : MIT Bec ENT LIMIT Co COUNTER 
4074 000200 165036 9S: BIT #SHO7,, SHR : PRINT T tb DATA MA NPARE ERRORS ” 
Wide 1 1 i BR IF Y 
Wide 010146 108 ROW Ri. (SP) BEFER ADDRESS 
4110 716 : SUB *( 3 + BOT UST ADDRESS 
4114 7 O22e4e JSR PC’LINOCT :TYPE IT 
4120 104414 iss DISPLY ,LINSP ig aces 
4124 016546 177776 MOV +~8(RS),-(SP :PU DATA ON THE STACK 
4130 004737 2242 JSR PC LINOCT : TYPE IT 
4134 104414 iss DISPLY »LINSE eS cS 
414O O1S146 177776 MOV ~B(R1),-(SP) : DATA 
4144 904737 Oe2e42 JSR C Linoct :TYPE IT 
4150 104434 061165 DISPLy ,S$CRLF *CR-LF 
4154 000207 RTS 76 : RETURN 
;LAST LINE OF COMPARE ERROR REPORTING 
4156 737 001301 ENDCMP: TSTB FRSTER+1 ; ANY COMPARE ERRORS FOUND ? 
4162 417 Q 2 : BR IF NOT 
4164 737 001306 ST RCTR E HOW MANY ERRORS 
4170 001410 BEQ 1 :BR IF ONLY CAN’T MATCH PATTERN 
4172 104414 051512 DISPLY ,LINSE : NUMBER OF ERRORS=" 
4176 O13 001306 MOV RCTR, -(SP) : R OF ERRORS 
4202 7 022274 JSR C, LINDEC : TYPE IT 
4206 104414 001165 DISPLY ,SCRLF ?CR-LF 
42le 004737 O234e4 1S: ISR PC, INCTOT t INCREMENT TOTAL ERROR COUNT 
4216 004737 Oel762 J5R PC’ LINE? ‘PRINT LINE 7 OF ERROR MESSAGE 
4222 000207 2s: RTS PC : RETURN 
GALLE TO MATCH THE DATA WITH A PATTERN 
SBUFFER, Ri ;BUFFER ADDRESS 
co : ;PATTERN ADDRESS IN RY 
: RETURN2 :COULDN’T MATCH PATTERN 
4224 010146 MATCH: MOV R1,-(SP) " ;SAVE RI oN THE STACK 
4226 012704 OG0044 MOV #44, RY ;PATTERN TABLE INDEX 
4232 O11601 1$: MOV (SP$,R1 ;REL RL 
4234 162704 op0092 SUB #2,R *DECREMENT INDEX 
4240 O1640S O0e7b2 MOV STNDAT(R4),RS ;ADORESS OF PATTERN ADDRESS 
4244 O01411 BEG 3$ !BR IF ALL PATTERNS CHECKED AND NO MATCH 
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4302 iF 
4303 014 oooo04 MOV #4,R3 OCATIONS TO CHECK 
4308 a g702 2s: pre (RI), (RS)+ Pay a Fe Oey at -PATTERN 
4307 O14 1374 Bee 2s : PINISHe T COO NISHE 
4308 Wee O4 002762 800 SSTNDAT, RY ; MAK RAKE PA PATTERN fee ABSOLUTE 
4310 31 766 oo0002 o00002 3$: DD #2,2(SP) ‘TN NT RETURN ADDRESS 
4311 014276 012601 48: MOV (SP)+,R1 ?REST Ri 
Wie 014300 000207 RTS PC RETURN 
4313 ;USE ECC TO CORRECT THE DATA ERROR 
4316 014302 016037 O00240 001322 ECC: MOV RPBACRO?, rEC C ; T LOCN XFERED 
4312 014310 C1 6046 000236 MOV (RO) =(SP) At a Hee et D (e"S COMP) 
4 14 peer CLR SRD LR NEXT euER TES LOCN 
4330 Bi y3s9 1 V $SSEC(RO) (oP) ieLROR 
4321 014326 23 027054 JSR PC LINKDV" Bea eer oXFERED BY, SECTOR SIZE 
4323 O14 rats BEQ 1 z= 
4368 14 AS (SP) ae INTO NUMBER | fF BYTES 
W358 Naa e037 eet ooo00s eMPB scone FCS as R READ HEAD & bATA 
4 14 , 
Sey GSES BPE coooio ooisee «= Bb .ecae ba si2E cy price) pacx IN 
siee BL! era une omssee ag: B Hogccsee STEEL SETS OR dg SIZE “ON Erte 
332 014376 001320 ‘ MOV ae : T 
ae Bites Bheoe Bapeee pe Beet pn Io FP cou 
SESE Bee Gye Be STs SR Aue 

es ; 
4336 Biwied B45535 1 Bb 1350 Bie Ht: et ;CLEAR THE BIT OFFSET 
4337 O144 006237 1330 ASR CWRO *CHANGE T TE COUNT 
4338 014435 906237 901330 ASR CHRD ig TO BYTE COUNT 
aaa0 O1s44e TDadT4 §OSie? BreeLy “CINIOA iE BuReY BERING AT’ 
4341 Ot aes bi 3746 B81 330 v EURO (SP) PUT He COUNT ON THE STACK 
Re Bites BNL ger7r SF dene = EENWERT Thea Clon mone 
4344 014464 7 737 R : icowy IT 
4345 014470 104414 057370 BTSPLY LtNi ¥ :? in TA FIELD OF ERROR SECTOR’ 
4 piwa7s 90136 001330 ADD ECSEC cup FIND HE TN NG OF THE ERROR BURST 
434 14508 6 001330 CMP tRO),ECWRO '; IF NaS IN DATA READ 
348 Biuers Aoors? 015030 MD Etee BR TE IN OAT RO REPORT IT 
4350 O14S16 001324 MOY C2(RO),ECMSKO :GET 08 
4351 O1 7 1 CLR CHEK CLE THE RR ci WORD 
4352 O1 737 001320 3S: TST CBIT ;B1T OFFSET EQUAL 
Set BES BREE 1320 Be ays (Becdendar he arr orrser cou 
4355 014542 6337 1324 ASL €MSKO HIFT T 
4356 Bt yeue BDET obi 32 ROL FeneKt i SHIET THE Feu ERTcR Th , THE UPPER 
4357 O14YES2 OO007EE BR 3$ ‘CONTINUE THE SHIF 


SEG 0061 
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FROM BAD WORD 
S FROM UPPER MASK 
S FROM DATA WORD 


~ 
a 
oS 
= 
la 
= 
=x 
w = 
Z . 
e oO Q 
= a VT) 
oo QAaQ « = a 
gtree g i 
wm & ow . = 
ae oe a a ee ie ee 
ae ¥Y § = = ss «& + & = ¢& = 
Q c f- & = - ww 
z orf - FF F&F Oo FA GF & 
Sa oF 8 Be - Soe w 2 
Fg Sar i Bota yy F FFE ES 
ee grour 2 . z ¥ 
Bolesssraes Sconces; 5 6 § 8.5.5, 2 
Q §-adwzaw a Qa —=-— «= —2O & 
CRSSE DeMEt., gree $3 Gv eee 
vipSEReSets Pew EEE Oe 3s ag re So 8 ao 
FEE uw ue oe rrr ret tt tt re ti cue 
Sots goae Wegouubabeettenter heantentacer 
SdedaMesas Bdkneddiver ner nerne Shar har her mone! 


oS ee eS Oe OR ee oR ee ee em OS OR OS OR OS OS TH OR SH EH ES CROSSES SHES se sRsase 


aa0 001334 4S: 


vo 7" -~ _ “% 
a a a a & 
oO . MO a. uw wn wn w ~ 
~ —- Sy - ee Se ~ Se Ie 
it~ 000 ot or | 1o 19 i] 'oO C2) 
Godt SEE = od S'S. 8,8 Zacea 8 
~_ wv = ~QO- a ao = u- “—~ZQaaqaza Ou 
Ae sapere 2 aaa ae 
OeLO oO sababe= = nO ROO x Woo Rohe 
O' VOOM Piacrtbiatbare aoe oe “BE S° xen ae ge eae 
> > > > > > > >> 
a. . 6 a = a a a aa 
Seat tate ny >>oow Ft, sh 4; VE 4, 4 BOHFAaMerAH>aw NUM 
Sd2ono Kee OSS Fe onmoLloLlae ov totcorlar Ak 
Lol oaoaoer-WrEco TEMMMOLT“AL ALF DOL Al Al agaooer 
~ ux 
es oe) S18) 
an oO V2O 
w iv¥) isla 
zr On0w wu uu 
OMmM r 7 
goin mF 
= 888 8 3 
sigs By 8 Peper sae 9 
™ TFOTR.MOUAMUAMYUAM - _ =—MU-- O- 
Tansy 6T - : = tO DO DON = ~4 =“ SSuronm oun onal 
“882828 8 28428248 “358 88368se238 48 


BRPARAS RRS OR IR SSR ES TPR TORT PRT TORT hr oR Ts Th 
Spe eeu MEI ER EE zE 
SUISSE ITTIAINCRRCHRERR PTR mMsenaneRED. 


r7T7I7T rTrrFITITIITIFIIFIFIFIITFT 
SG 8 dd Od nh nd Oh Od Od dd nd Od Od ad dd dd Od dd Od nd Od dd Od ed edd Od ad Od Od wd Odd dd dd 


2000900090000 0WW0O0OOOOOO0000N8HADHA00000200000 


DESSaRRRARBSH ONS ONHANRAERB ERROR OR ESE RTC T TS 


rrss7FIFITFIIFIIIIFIFIFIIIFIF FIFI IIFIFIFIIIIIFIIIITIIFIIITT 


ANSFERED BY THE SECTOR SIZE 


OF THE SECTOR 
NOT TRANSFERED 


DEND O 


;PUT THE ENO ADDRESS INTO Rl 


;PRINT THE BAD SECTOR ” 
He 7 
SFI 


:BR IF N 


;ROUTINE TO DISPLAY THE SECTOR WHICH GAVE THE HARD ERROR 


016046 o00022 
004737 027054 


OOSO46 


66 


70 
5074 
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JOc.P11 
4414 015100 005716 TST (SP) ;REMANDER = 0 ? 

4415 615102 1403 BEQ 13 :BR IF IT - COMPLETE SECTOR TRANSFERED 
4416 O151 316 ASL (SP) : RT THE RESIOUAL SECTOR SIZE INTO BYTE COUNT 
4417 0151 61601 SUB (SP),R1 i SUBT T FROM THE END ADDRESS 

4418 91511 10 BR 2s ; NISH THE SIZING 

4419 015112 162701 001000 1$: SUB #1000,R1 ; SUBTRACT i SECTOR SIZE FROM END ADOR 
4420 O15116 1 7 000024 oo000s CMPB SCODE(RO), #S ‘WAS OPERATION READ HEADER & DATA ” 

44e 0181 00 BNE es BR If NOT 

44o 151 I oo0c10 S #10,R1 ; SUB K HEADER SIZE FROM ADOR 

4423 O15] 000004 2s: ADD #4, SP ?REST THE STACK POINTER 

444 015136 O4414 2060 DISPLY LINi1H : PRINT HEADER 

44 o1514 12702 (0007 3S: MOV &7 Re Re CONTA THE WORDS/LINE COUNT 

oh 15146 010146 MOV Rl,- (SP) :PUT THE SS ON THE STACK 

4427 015150 004737 O2224e JSR PC;LINO : TYPE THE ADDRES 

4408 015154 160 000240 4$: CMP RI'$ Bes CRO) j PRINTED ALL THE SECTOR ? 

4429 015160 O0141e2 BEQ S$ sR IF ALL PRINTED 

4430 015162 104414 OS2155 DISPLY ,LINSP : SPAC 

4431 015166 12146 MOV tR1)+ 5(SP) PUT THE DATA ON THE STACK 

4432 015170 pies; 22242 JSR PC,LINOC :TYPE T T 

4433 015174 005302 DEC Re + DECREMENT THE HORIZONTAL COUNT 

4434 015176 001366 BNE u§ ‘BR IF NOT AT THE END OF THE LINE 

4435 015200 104414 O01165 DISPLY ,$CRLF :CR- : 

4436 015204 000756 SR 43 ‘RESTORE THE WORDS/LINE COUNT 

4437 015206 104414 001165 S$: DISPLY |S§CRLF jPRINT WHAT REMAINS IN THE BUFFER 

aH38 015212 9000207 65: RTS pc : RETURN 

4340 ; ROUTINE TO DO AN RTC - DRIVE SELECTED IN RO 

444e : MOV #0PB,RO :0PB ADDRESS 

4443 : JSR PC,RTNCTR 

4444 : RETURN 
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EER IpEO, RPO4 S76 TOR SES MACY11 a FS ae chan DEC-77 11:03 PAGE 84 


ll 15-DEC- SEG O0E2 
4& O1S214 111937 044730 RTNCTR: MOVB (RO), GENOPB MOVE . THE DRIVE # TO THE GENERAL OPB 
4447 015220 112737 000117 044732 MOVB #RTC’ GENDPB+SCOMND CODE 
444g 015226 BONg37 034120 1S: JSR RO, RPO OR TUE R ENTRANCE 
444g 015¢3¢ 4730 NOPB :OPB ESS FOR ORDER 
4450 O15 000774 1$ DRIVE DION’ T ACCEPT ORDER 
W451 015236 000207 RTS PC : RETURN 
4453 ;ROUTINE TO DO A RECALIBRATE - ORIVE SELECTED IN RO 
4454 :CALL: 
44sS : MOV #O0PB, RO ;DPB ADDRESS 
4456 ; JSR PC,RECALT 
4457 : RETURN 
4458 ; 
4459 OR 
4460 ; 
4461 : MOV HOPE RO ;0PB ADDRESS 
4462 : MOVB DRIVE :ORIVE ADDRESS 
4463 : JSR PC. OREFEAC TO. 
waed : RETURN 
4466 015240 111037 044730 RECALT: MOVB (RO) , GENOPB -MOVE THE DRIVE # To THE GENERAL DPB 
4467 015244 112737 000107 044732 RECALO: MOVB BRECON, GENDPB+ sR AREL LCALIBRATE COMMAND 
015252 004037 034120 1$: JSR 4 VER EN NTRANC gat 
4469 015256 044730 GENDPB DORESS FOR ORDER 
4470 015260 000774 BR 1$ i DRIVER DION’T ACCEPT THE ORDER 
4471 015262 005737 O44746 2s: TST GENDPB+$TATUS -SEE IF FINISHED 
4472 015266 001775 BEG 2s ;BR_IF NOT FINISHED 
4473 015270 900207 RTS PC RETURN 
pale ; OFFSET THE DRIVE IN RO (OFFSET CODE PRELOADED INTO ’RPOF’) 
4477 : MOVB wOFFSET,GENDPB+SFMT ;OFFSET CODE 
4478 MOV sO0PB, RO’ ;DPB ADDRESS 
4479 ; JSR PC, OFFST 
cent : RETURN 
4482 015272 111037 044730 OFFST: MOVB (RO) , GENDPB -DRIVE # TO GENERAL DPB 
4483 015276 112737 OO011S 044732 MOVB #0 OFF cer, GENOPB+SCONND MMAND 
4484 015304 004037 034120 1S: JSR RO,R VER ENTRANCE 
4485S 015310 044730 GENOPB ‘OBE AV EDDRE Se FOR ORDER 
4486 015312 000774 BR 1$ :DRIVER DIDN’T ACCEPT ORDER 
4487 015314 000207 RTS PC 
4489 sUTILITY READ HEADER ROUTINE 
4491. : MOV #OPB, RO ;DPB_ ADDRESS 
4492 : MOV #SECTOR,-(SP) SECTOR ADDRESS 
4493 : MOV pirack +(SP) : TRACK ADDRESS 
4494 : SR EADOR 
ai36 ; RETURN 
4497 015316 116637 OO0002 044741 READHD: MOVB 2(SP),GENDPB+STRK ; TRACK ADDRESS 
4498 015324 116637 GOOOO4 044740 MOVE 4(5P)'G NOPB+SSEC SECTOR ADDRESS 
4499 015332 111037 044730 MOVB (RO), GENDPB NUMBER 
4500 015336 016037 Oo00e72 oO4474e2 MOV SRPCECRO), B NOPBISCYL ACYL INDER ADDRESS 
4501 015344 112737 G00173 044732 MOVE #ROHD, GENSPS+SCOMND ;COMMAN 


ESRI Beer ise fei7P 1b eke ets SAIN BROGRAN accept aie SEG COE4 


4502 015352 004037 034120 1$: JSR RO, RPO ;DRIVER ENTRANCE 
“my less Saget grr? as Bea vee Stan 1 ac CEPF commen 
4505 O18 737 044746 2s: TST GENDPB+$TATUS BANE HED 
4506 O1 17 BEQ es BR NOT 
4507 915320 O1 2666 oo0002 nov (SP)+,2(SP) ‘ADJUST STACK FOR RETURN 
4203 015376 000207 RTS PC ; RETURN 
Weil sRETRY THE PRESENT OPERATION 
4513 MOV #COUNT, RETRY ;RETRY COUNT 
4514 ; J PC, SRETRY 
4515 ; RETURNI ;RETRY UCESSF UL 
4516 ; RETURN2 :SUCES UL RETR 
4517 ‘NOTE: ira BIFFERENT ERROR OCCURS DURING 
4518 : :RETRY, THE ROUTINE EXITS TO ‘ERPRCI 
4520 015400 004737 016370 GRETRY: JSR PC, GODRIV ;RE-START ORDER 
4521 015404 005760 O00016 18: TST STATUS(RO) : R FINISHED? 
4522 015410 001775 BEQ 1$ :BR IF NOT 
4523 015412 190408 BMI :BR_IF ERROR 
4524 O154i4 10S23 001253 INCB RETRY+1 + INCRE NT RETRY COUNT 
Wese O1e454 Bee EH ews ENR EXIT 
mat4 01 5ue6 032766 p00200 oo0001e 2s: BIT #8177, S$TATUS(RO) | ,01D ORDER TLRMINATE NORMALLY 7 
4529 015436 905737 001250 TST MASK :IS ERROR MASK O ? 
4530 015442 1004 BNE 3$ :BR IF NOT 
433! O1suaa 905760 oo0250 rst SRPERI (RO) ;MAKE | SURE THAT THE DRIVE ERROR REG IS CLEAR 
4533 015452 9O00404 BR 4g :CONTI RETRY 
4534 015454 033760 o01250 op0es0 3S: BIT MASK,$RPERI(RO) ;SAME ERROR? 
15462 001407 BEQ 6$ ;BR IF NOT 
4536 015464 105237 001253 4S: INCB RETRY+1 ;INCREMENT RETRY COUNT 
4537 015470 je3737 001252 001253 CMPB RETRY RETRY+1 Beir 
4538 015476 1340 BNE F or DONE 
4539 015500 0o0020 S$: RTS PC 
4540 015502 004737 022230 6S: JSR NES REPORT, DIFFERENT ERROR 
4541 015506 004737 O21762 JSR Be? LINE PRINT 
weue 015612 905726 ret cs (SP)+ :BOJUST ETc POINTER FOR DIRECT RETURN 
4544 O155i6 104414 051330 7$: DISPLY ,LINSM 1 OE TEEERENT ERROR DURING RETRY’ 
4euS 015522 000137 o06644 IMP ERPRC i :REPORT THE ERROR 
ad : ROUTINE TO UPDATE THE PERFORMANCE SUMMARY STATISTICS 
aEaS : "MOV #0PB, RO ;DPB ADDRESS 
4550 : JSR PC, StaTIS 
qzes : RETURN 
4283 015526 932760 000300 oo0016 STATIS: BIT #81T07!81T06, STATUS RO) wit "GRta” Pee ne TERMINATION 
¥55S O15536 016037 o002e40 015670 MOV SRPBA(RO), FACTOR’ ;STORE THE FINAL BUFFER ADDRESS 
45 C1S544 166037 O0000E 015670 SUB $BUF(RO),FACTOR ;SUBTRACT THE INITIAL ADDRESS 
4557 O1SESS 001434 BEG 2$ :BR IF NO DATA TRANSFER 
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mi Py “Tees 063760 015670 
4 1 
seek leer faeret 
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oo000e 


MAIN PROGRAM 


3$: 


FACTOR: 
;ROUTINE TO GET 
;CALL: 


38: 


4S: 


cs: 


1S-DEC-77 11:03 PAGE Bb 
ASR FACTOR *CONVERT TO A WORD COUNT 
ADD FACTOR TRONS (RO) oi aRNE WORD COUNT 
ad¢ STRANS+2 ( RO) ANY CARRY 
git girol, & (RO)" wee OR BREA RE WRITE 

Ts? AUTOCK AUTO URtTE CHECKS BEING PERFORMED 
nPB $2o0€ «ROD, al NT OPERATION AN AUTOMATIC WRITE CHECK ? 
ae ROL (RO) ,STRANS 0) ;AOD WORDS WRITTEN 
ADD sie TOR, SREAOCRO) TE THE READ WORD COUNT 
ADC sR CARRY 
CMP $c CYL(RO), "srecacri) -DID MID-TRANSFER SEEK OCCUR 
ae #1, SPOSIT(RO) Pickett SEEK COUNT 
RoC SPOS1T+2(RO) ADD CARRY TO UPPER WORD 

.WORD 0 ;USED FOR WORDS TRANSFERED 

A BUFFER 
MOV #DP8, RO ;DPB ADDRESS 
CLR -(SP} :CLEAR THE STACK 
JSR PC, GETBUF 
RETURN ;BUFFER ADDRESS WILL BE ON THE STACK 
:STACK WILL BE ZERO IF NO BUFFER AVAILABLE 
MOV -(SP) ;SAVE R1 
MOV Re; - -(5P) Va 
MOV -(5P) AVE R 
MOV BUFTEL, Re R OF SEPARATE BUFFERS 
BEQ 6S BR if N AVAILA 
MOV aBUF TeL+2,R1 : iB T Ss BLE CATION TABLE 
CMP SWROL(RO)’2(R1) :SEE IF THERE IS A BLOCK LARGE ENOUGH 
BLOS 3S : BB H_IF 1 15 
DEC Re Cc NT ABLE COUNT 
BEG 6$ IF THROUGH TABLE 
ADO #4,R1 i INCR MENT TABLE POINTER 
Be is ion gaNG 
MOV (R1),10(SP) ; 0 STACK 
SUB $WROL (RO), 2(R1) ; ast BUFF R Siz 
BEG 4§ 0 FE Ss ZERO 
ASL $WRDL (RO) iC T ES 
ADD SWROL(RO),(R1) ;MAKE NEW STARTING ADDRESS 
ASR SURDL (RO) :R TURN # BYTES TO WORDS 
FTB é NT ENTRIES C 

Beg SCség Bt DE PENENT BRT TON TABLE EMPTY 
DEC Re DECREMENT T OUN 
BEQ $ BR if i EM HERE LAST ENTRY 
MOV 21, R3 ; MOVE TABLE POIN TER 
ADD #4°R3 ‘POINT TO NEXT ENTRY 
MOV (R3)4+, (R1)+ :MOVE ITEMS 
MOV (R3)+, (R1I+ 


SEG O0es 


SES COSe 


INUE_IF NOT AT END OF TABLE 


MENT TABLE COUNT 


;0PB ADDRESS 


I07 
11:03 PAGE 87 
#O0PB, RO 
PC, RELBUF 
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) 
ROGRAM 


(1 
Al 
;ROUTINE TO PUT BUFFER BACK IN TABLE 


;CALL: 


MACY11 30( 1046 
MAIN P 


LGC 
0:58 


oR, 


1S-DEC- 


RPOY/S/’6 MLT- 


Pil 


LNT Hera Aaa RET ENS EES 


C2RJOCO 
C2RIDOC 


lJ 
ail 
a 
rd 
oa 
va 
- 
uw z 
a se - > 
= a Ww z re 
oO - Mm FT) - 
oO YO Pa 
| YW a xz J 
a Pa 5 x 
- Pa a wna i 
“Ue sg * Bd, oe 2 
oF eos i i 
a _ +Zu ‘g Bun > x 
~ - —- - oO ~ ea - c x~ewe 
sey § 5 Sue 5 Bene EE Sete 
ww 5°35 O65 So4r 5 w weszo" 3a = Sa¢ 
ao 4 Sua G°Sa PaBo ° “wu BIOz Au vo mahal 
< @ = err >See > at En >,2e o> Si 
— woe Zeoe fue & Wm Howe zon Waozw 
K—-WrHz oree - ha) uw He OFZ He Xe ae a 
be Herd Sogeweeess Bo -S-RHSdEESS Szcog 
95a oS5urer aN = SoNOx Seen TE, 
285 Yaa as WZZCO LZ OZ OZar 1564 ZZOzZW 
eet ee 
yacht ees Be SSS USNSE RUE SE QUEERS Eo hhh, oe 
gurantee eusbascuonenuessccse spusuousc. of 
DOW OF 2OROOG. +28 NOU MWE NIDA TA IOOLWELHOAING 
~ + ~ 
~ oo = 
at von | az 
z= &o au et an ¥ os + 
- - & “~ we we . w -~ 
wumu - 7 —_ “_ ~-— tut ag “4 
a a on oe rn 
~—@ a “ss = ~ J@ oe ~~ ~ =< ww + +-Ouww + 
Oe 
a3 we ceruea Summ 2 5On suse res wren sist 
& SOUAKAY FT eA“ MADTNMAD—MHAD SUE ~ToOeLD- wba we 


SSSOSAQESIOWSALO, B29, BQz>B>> JOQAIQOW | >Q>0> 
PP PRA PONE OGLE GOMEE OME PEELS Se Se EOOUOOS 
“ 
—~ 
es “ a S e 
la A RA An wA ~R Zw w 
ec _ tu rw w ao o 

tw tw tu 

oO oO oO 

oO oO oO 

3 8 8 

oO Qa Oo 
82828 5 882 90 go wou oz ayo x 
8399 8 898 803 goes 93 9 
8888 8 888 88388 se8 8 89 8 
PSNTIIIOT SULA ARNE GAO PE ES aN eNa eu. 
=F ETO “TF 38 oo 8 SR tow rn. ia Bvnitconet 
QuUM- = sa = 0 OB 98008 wunorrm 
Cm Ke ame = ind coe Keon a ome Remn Ioe Ramat Ce | ~~ -_ 


RE dk lk dd ad ah dd ed td dt ey 
WOOD NOODYVNNDUWNDVODNVNNNWWW w wo 
i deat dea foe Jue. etd en oe eter eam. sm. betth heen een pam Jame pans. ham. asm hoa bam. bam. pam ban ban hon bom ban ben bon bam bon ben ton fon ae en ee 


2000000009000 00000000000W0000000000000000000 


Pa SS eet uPAR ET SAG Pty 


wo 
ow 
TT 


FPPTTTILT ITT TITTLE TT TT TTT TET TEE T ETS 


pco /S/6 ML T=DR Gc MACY11 301046) 15-DEC- -77 11:03 PAGE es 
DC. he 1S-DEC-77 19:58 MAIN PROGRAM SEG 0087 
016230 012521 MOV (RS)+, (R1)+ ;MOVE SIZE FIELD DOWN 
o1b23¢ 005302 DEC RE !DECREMENT ENTRY COUNT 
lbe 001374 BNE 9$ BR IF NOT FINISHED 
3 016236 012601 10S: MOV (§P)+,R1 : g ORE R1 
a 16240 000207 RTS PC : RETURN 
76 
4e77 sE TLL THE ASSIGNED BUFFER (IF WRITE OR WRITE CHECK ORDER) 
: MOV RO ;DPB ADDRESS 
0 ; MOV #BUFADR SBUF(RO)’ ;LOAD BUFFER ADDRESS INTO THE OPE 
: MOVB ATTERN, SPATTC(ROS ;PATTERN CODE 
; JSR PC, FILBUF 
: RETURN 
O1e2e42 104412 FILBUF: SAVREG ; SAVE THE REGISTERS 
016244 132760 oo0co004 000024 BITB #B1T02,SCODE(RO)’ ;SEE READ ORDER 
016252 1044 BNE 4 ; IF BEAD 
016254 016001 000006 1S: nov (RQ) Ri ER ADDRESS 
b1b2b4 32760 000001 oooce4 BITS gB1700, SCODE(RO)" SEE IF Waite HEADER TYPE ORDER 
o1be74 11 012 MOV CYL(RO),(R1) i CYLINDER ADDRESS 
ie304 bres: popete Soy $81T12 (RI D+ Sele RECTOR & TRACK 
Biesic paenst CLR tai Ss F OE BR FIRST KEY WOR 
O1631le o0S0e1 CLR (R1)+ CLEAR THE SEC 
4697 0163 4 ise” oo0004 SUB #4, Re 580 T THE WORD COUNT 
Dieses 02004 2s: Bt Re : AR gre oil tntecytas 
016324 116004 000030 F MOVB SPATTC(RO), RY ; REL LATIVE PA PATTERN ADDRESS 
016330 O1640S 002762 MOV STNDAT (RS); "RSs gS PATT ss 
016334 012703 000020 MOV R3 :PATTERN COUN 
016340 012521 3S: MOV tae}, (R1)+ :MOVE THE PATTERN INTO THE BUFFER 
Bibs Sersgy cae Be TE bone Gol OSes 
) 
pi eade 303 DEC : DechE NT THE TPATTERN COUNT 
016350 001373 BNE BRI MORE PA TERN 
01635¢ 912703 000020 MOV #20 R3 ; RESTORE ORE TERN” COUNT 
16356 016405 002762 MOV STNDAT(RY),RS :R THE ADDRESS 
G1636e 000766 BR + OORT TNUE DISTRIBUTING THE PATTERN 
1 016364 104412 4S: RESREG i RESTORE THE REGISTERS 
1g 016366 0090207 RTS PC RE TURN 
4714 ; START THE ORDER FOR THE DPB IN - 
: “MoV #OPB,RO ;DPB8 ADDRESS 
4717 : JSR PC, GODRIV 
: RETURN 
016370 o10046 GODRIV: MOV RO, -(SP) ;SAVE RO 
01637e 010037 o16402 MOV RO) 2$ j CURRENT TOPE AD ADDRESS 
4722 016376 004037 0634126 1S: ISR RO; RPOY CAL HANDLER 
016402 o00000 2s: “WORD O DRIVE THE Bk ABORESS GOES HERE 
C16404 900000 HALT !DRIVER REJECTED REQUEST 
O16406 Oi2600 MOV (SP)+,R0 ?RESTORE RO 
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C2RIOC P11 1S-DEC-77 10:58 MAIN PROGRAM SEG o0es 
47 16410 1 000036 ADD 1 ,SOPERC (RO) ; INCREMENT THE OPERATION COUNT 
47 164 0 ADC RC+ 
42 164 34 oo00012 cne VA+2(RO), SCYL(RO) apie ORDER REQUIRE A CYLINDER CHANGE 
47 164 ooo042 ADD 1 OST RO) ‘INCREMENT SEEK COUNT 
4731 0164 ADC 1T+2(RO) :ADD ANY CARRY 
47 1 3S: RTS 
47 : GENERATE PARAMETERS FOR THE OPERATION 
4736 ; MOV ;DPB ADDRESS 
4737 : SR PC, PC’ StLPAR 
4939 ; — 
4740 S16446 004737 364 SELPAR: JSR PC, SRAND CYCLE THE THE RANDOM NUMBER GENERATOR 
4741 0164 032777 Ol 162460 BIT aS, ISWR 
4744, 16460 10 BNE Be IF Sere 
474 16 277 10 1S: MOV #10 RS igi Te “SELECTION. DIVISOR 
4744 O16466 7 7026 ISR PC, GETREM T SELECTI 
74S 01647 001422 CMP Re "RATIO TERR NE IF READ OR WRITE 
746 O164 BHIS AD 
748 Bi EeDY 4 veaiusiy: ane 5" . Hen THe T ELECTION 
due Bibete BPEE oaeyey m: fy Ryans UME bedi Yon cObe 
4750 0165i2 708 7 6 BIC aiciRs Sk OUT L “eur TO 
4751 016516 7 o0c4 ADD BL OR READ CODE 
4785 016S22 110560 000074 3S: MOVB RS; S$NCODE(RO} ;ORDER SELECTION CODE TO CONTROL BLOCK 
ne ;GENERATE A RANDOM SECTOR ADDRESS BETWEEN VALUES *MINSEC’ & ’MAXSEC’ 
4 O16526 16005 000116 RANSEC: MOV MAXSEC (RO) , RS ;GET max TMM SECTOR ADDRESS 
W757 16532 S260 000120 cH MINSEC(RO); : *MINSEC AND *MAXSEC’ THE SAME ? 
4759 piece 166005 000120 ofS MINSEC(RO),RS art ae CTOR ADDRESS 
4760 016544 BP 1§ HAN MIN 
4761 016546 ooo026 AD age. ,RS i NUMBER 
4762 016552 1S: INC PP CRE NCE To USE AS OIVISOR 
4763 016554 7 7026 JSR PC TREM AUGMENT 
4764 O16 ™ C(RO),RS 
4765 016564 5 CMP RS, #1. 80 LARGE ? 
4766 016570 101402 BLOS ia 
4767 016572 162705 ooD0026 SUB #22. te 
4768 016576 110560 000076 2s: MOVB RS, SASEC (RO) STORE oe cob ue ADDRESS IN DPB 
maa ;GENERATE A RANDOM TRACK ADDRESS BETWEEN VALUES ’MINTRK’ & *MAXTRK* 
477 166 016005 000112 RANTRK: MOV MAXTRK(RO),RS  ;GET Maxt TRACK ADDRESS 
477 BT Bebe Oe6008 000114 CMP MINTRK(RO);>RS j AMINTRK MAXTRK’ THE SAME ? 
47 Ol66i2 00141 BEQ ;BR ame 
4775 016614 166005 000114 SUB MINTRK(RO),RS ;SUB Racte NIN NTHUM TRACK ADDRESS 
4776 Ol 100002 BPL :BR IF HAX GER THAN MIN 
4777 01662 705 ooo0023 ADD #19. ,RS : CORRECT NUMBER 
477 O1 6626 1S: INC RS iT RE N FFERENCE TO USE AS DIVISOR 
477 1 027026 ISR PC, GETREM : GE TOIEE AUGMENT 
4780 016634 066005 090114 ADD MIATRK(RO),RS ;NEW TRACK ADDRESS 
4781 Oibb4C O20527 o000e2 CMP RS, #18. 'IS VALUE TOO LARGE ” 


SRIBe tT Fett bese MACY SER" Bhockan 7 1408 PAGE 30 seo 0089 


47 16644 1 LOS + } ; 
ce SIEESS |Tece 089 os, ee anBcceay — LEPSRE FRA Eooress 1" Ps 





4 
42 ere A RANDOM CYLINDER ADORESS BETWEEN VALUES "MINCYL’ & ‘MAXCYL’ 
4 350 #411. CYLIMT sAS AN RPOW/S 
cB ie SR lh tno SB Pa 
4791 16574 001350 #815. ,CYLIMT fst YLINDER LIMIT 
4783 Oe — Rov rane Re ; oRINCYL TO MENETL” The SAME ? 
4794 ? Bra : HEY 
4795 1 Sue MINCYL(RO),RS ; TRACT MIN " CYLINDER ADDRESS 
aoa? BLE? BOD YLIMT,RS 66 CT THE NUMBER 
4738 18758 1S: INC pu : NT DIF ERENCE TO USE AS DIVISOR 
167 MINCYL(RO),RS ; YL ss 
16740 che Iney : vat "60 te ? 
4 ieoue at) SINT. RS ; cT va 
ie ee ee 
4 
ao? ieee 000102 BOY 826) ; , SNWROL (RO) te tose LENG NGTH TO 260 FOR WRTHD ORDER 
4608 16774 000404 CHF * #260. ar ef CTOR BE WRITTEN ” 
é 
7004 Vv MAXDL . SNWRDL (RO) 
611 eae nape: BR RANPAT 8 lends (Bs WITH THE E St EcTION 
gis ;GENERATE A RANDOM BUFFER LENGTH BETWEEN 4 & THE VALUE IN ’MAXDL’ 
4815 017014 1404 RANSIZ: MOV RS BUFFER SIZE 
4816 017020 Bo taes rot Neoee’ ne RANDOM WORD COUNT ? 
uei8 ipoSe INC ed hi ne THE MAXIMUM SIZE 
“ess BGR Basra ce7026 ep eceTmen HOLMES tot 
ese 17056 032364 ier pe RA icy ae RANDOM NUMBER GENERATOR 
4824 Ol 000102 1$: MOV Re. (RO) Tr NGTH TO CONTROL BLOCK ; 
vase Bl a the e pBivioehor sees om ve 
4827 Ol oo MOV #256. ,-(SP) SEC RS HE DIVISOR 
uBee 17 ete 000074 BITB . 81, SNCODE (RO) Da ORDER 1S A HEADER ORDER 
4830 O1 90900 tad 84, (SP) ABER ZE TO SECTOR SIZE 
4831 O1 ooS4 2s: JSR PC’ LINKDV iB VI B Ose BY. SECTOR SIZE 
se35 13106 oo00004 eee ie bi See IF REMA eR 1 Ec THAN 
Wess 17119 BHIS 43 ori 
mi O17 11e 001420 tot WCSEL iy ETING RANDOM TRANSFER SIZES 
4827 017120 000102 CUB (SP), $NWROL(RO) *;ADJUST WORD LENGTH DOWNWARD 
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CZRIDC.P11  1S-DEC-77 10:58 MAIN PROGRAM SEQ 0090 
see BILE pomses » (h tb BUEN ne crack ronsace 
4 Bite 032364 eye § JHE R GENERATOR 
171 7 4s: ST (SP)4+ :C CT THE STACK POINTER 
SE: RISHSE gfage P7000 conor ze RHGRDEROD ERE TF HORE Bae 
4o46 ;GET A RANDOM PATTERN NUMBER 
Bisteg 9dc2, Bbaae¢ T: 33tp peered : gr PATTERN RN CODE T TO CONTROL BLOCK 
4850 917160 012760 177777 000104 RANXIT: Hoy # BP eceve ERS SELECTED INDICATOR 


;ROUTINE TO SELECT A WRITE (OR WRITE CHECK) OPERATION 


17170 1271 RANWRT : ;WRIT RATION SELECTION DIVISOR 
BS tata ei 1424 i Bc sGETREN Ree bare bce ORDERS TO BE SELECTED 
a 017208 reais ooco02 BSB 13 rs BB CODE Yo PEK CLUDE WRITE CHECK ORDERS 
4 B17818 be05e7 000001 1S: i Re, 0 aE ch leap ? : 
wees BI7ES5 ayagy ComOGe ooey = BIB 4g SCODECRO) ER PRE TOIE GRENEE ware coc 
867 1766 sere vate poon24 Bice Bg, sncobEtRDS aye ne WRITE CHEEK 
vers Gives Geert BRO =a: HLE as IMO AEATE SUCKS "2L NSLS 
1878 17; 042705 000001 BIC #1,R5 Or TER P R POSSIBLE, Wp WRITE HEADER 
ied Bires Mises FBS ticooecros ETE 
1678 ;ROUTINE TO SELECT A PATTERN 
4878 Hee 2 O26 GETPAT: re $90.85 ‘Et LECT PATTERN 
4 17 7 T RS WAS ERN ZERO SELECTED ? 
4881 017 00100 BNE 1$ 'BR IF NOT ZERO 
“eas BLAIS Beare 523" A gt aS eeaedangmy canine: 
4884 017316 O06 1S: ASL RS *MAKE CODE INTO TABLE INDEX 
4885 615338 000, OF RTS PC 
ee? 3 ROUTINE TO GET THE PREVIOUSLY SELECTED PARAMETER VALUES 
4889 : 6 MOY ore RO ;DPB_ADDRESS 
4830 ; J R eC, SELPAR :SELECT THE PARAMETERS 
48 : RETURN 
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1 
17388 z OETPAR: FOV, Seve da» sonevisass "save ¢ 
i SER GY RETO FS SAR ER on 
17 MOV (RO) VA+2 (RO J isle, NG CYLINDER 
17 peep a2 ee fei RS)’ SpREvACROD SATIN SECTOR AND TRACK 
17 1S: SR ' GET ne DECREMENTED SECTOR AND TRACK ADDRESSES 
13390 ii Hove Ro) bcT ' 
1 1 900034 Ro) CYLINDER 
1740 1615 2s: I Fe ? 
i74 ooo0024 ) AL ODE FOR RATION 
174 -L As Fo bee TABLE NDEX 
iB GS) vines oo 
i 1 ) ; TRACK BND ADDRESSES 
rt ) 3C¢ R ss 
at " , ; Coun FOR THE RH11 
eae: +O TTTAL V i OF SECTOR SIZE 
: . aes ; HEAD OPERATION ? 
17510 oo00022 : HEADER SIZE 
17520 3S: : T’ TERS LOADED’ INDICATOR 
17524 *RESTORE RS 
17526 RE TURN 
; ROUTINE TO 
; : ;COMPRESS LIST STARTING AT THIS ADDRESS 
017530 016111 900002 CMPRES: MOV 2(R1),(R1) ;COMPRESS THE TABLE IN Ri 
17534 001403 BEQ 1$ BR N ZERO FOUND 
17536 062701 ooo002 ADD #2,R s ANCE MT 
17542 00077 BR CMPRES CONTINUE COMPRESSING TABLE 
017544 000207 1S: RTS PC 
; ROUTINE TO SETUP PARAMETERS a A SEQUENTIAL READ OR WRITE OF THE DISK 
MOV sO0PB,RO ;0PB_ ADDRESS 
bon MOV 8-1,$PACK(RO) ;’WRITE PACK’ FLAG 
MOV #1, SPACK (RO) ;’READ PACK’ FLAG 
; JSR PC’ WRTPK 
: RE TURN 
017546 4737 032364 WRTPK: JSR PC, SRAND ;CYCLE_ THE RANDOM NUMBER GENERATOR 
017552 nee 000040 TST SOPERC+2(RO) i BEE ir piRst OPERATION 
017556 001007 BNE WRTPK R WORD OF COUNTER NOT ZERO 
017560 005760 o00036 TST SOPERC(RO) ‘LOWER LORDS ZERO ? 
017564 001004 BNE WRTPK 1 :BR IF NOT 1ST OPERATION 
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TSTB SPACK (RO) Bee WHICH - "R’ OR ‘WW’ 
I WRTPK 
WRTPK 2 PRY SPERAT ON 
WRTPKI: MOVB ( ), SPREVO (RO) : URRENT TERS 
JSR -GET THE DE NTED bec oe AND TRACK ADDRESSES 
(SP)4 RO) ;:T Ss 
nove (SP )+ ) ies? 
MOV c vaseltRo) ; q R 
MOV > 5; CTOR TRACK ADORESS 
MOV A to YE! ss 
CMP YL( (RO) ’; i AT END 
BLO sBR IF C THAN 'MAXCYL’ 
BHI -BR IF ATER THAN ’MAXCYL’ 
C RK(RO),MAXTRK(RD) IF AT MAX TRACK 
BLO If NOT TER 
1S: MO HINTRK (RO), Pig ADDRESS 
Move C’RO), 5 T SECTOR RESS 
MOV RINEYL | ); VLR 3 T INDER ADDRESS 
JSR (NORMAL TERMINATION) 
Bir 8 , ™? 
Oi (SP)+ : INC HE STACK POINTER 
JMP MAIN ‘RET LY TO 'MAIN’ 
2s MOV MAXDL , eroh S MAXIMUM 
NES tro) OUNT TO 2’S COMPLEMENT 
TSTB K (RO) 
BMI WRTPK3 
WRTPKe: MOV #260. SEC(RO) FOR READ 
nove r (RO) R 
MO OMND (RO) FOR OPERATION 
BR WRTPKS F XIT 
WRTPK3: MOV #256. SE of zs 
MOVE ¥ (RO) TDAT 
MOVB sk $c ; CODE 
ISR PC. TPA BET ERN CODE 
MOVB TTC(RO) ATTERN ODE 
WRTPKY: CLR $NEXT(RO) :CLEAR 'PARAMETER SELECTED’ INDICATOR 
RTS PC RETURN 
jROUTINE To DETERMINE OF ERROR Is AT A LOCATION ON THE PACK DEFINED 
were BAD TRACK/SECTOR TABLE FOR THE DRIVE. 
; SR PC, SPOTCK 
: RETURNI ;ERROR AT AN ADDRESS IN TABLE 
: RETURN2 :NO oReLE ENTRY FOR ERROR ADDRESS OR 
: :PARAMETER *NOTPRT’ IS 0 
SPOTCK: 
MOV RL, =($8) ; PUSH Ri ON N STACK 
MOV : inCRENEN 
MOV RSAosec. RI it MEATS FOR, 1B SECTOR TABLE 
ADD RO,R1 j ADD THE BLOC S_STARTING ADORE SS 
MOV #16. ,R2 SECTOR TABCE’S 
1S: CHP (R15 | $RPCC (RO) ids ¢¥ cy LENDER IN Fue. too eu = 


SEG 0092 
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190466 090003 
A897 022314 
057871 Bod003 
i 1 90002 
me 
14 
op 88 000002 
ah 
bt oooco04 
711 
100411 
ice 
338 001426 
ae 
12737 96177777 
766 000002 
Bt ser 
12601 
006207 


032777 o002000 
ses) BASE 
tid 001165 


737 023450 
414 OS2e1S6 
207 
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MAIN 


PROGRAM SEG 0092 
TSTB 3(R1) ; TRACK ENTRY ? 
a4 Be READDR iBEc et 1 MG SECTOR TRACK ADDRESS 
CMPB (oP )+,3¢R1) a is 
rsy8 g(R1) is a see is ADORES eno N THE TABLE 7 
TST (SP)4 : aah K POINTER 
s3P + APEBE DY Meee cace 

2s CMPB ae : a Tt CTOR ADDRESS 
Bre S ; HECK 'NOT 

3$ TST (SP)+ ; 10 Te THE STACK POINTER 

ug #4,R1 HE rhe OCATION IN THE TABLE 
#00 cri) : TABLE ENTRIES ? 
BMI 6S tBRe Ir’ 
DEC Re IDECREMENT THE nAX TUM ENTRY COUNT 
BR 6S :END, EXIT 

SS: rer NOTPRT ei M3 ERROR ANYWAY ? 

001264 MOV #-1, BADSEC : NOICATOR FOR THE IDENTIFICATION LINE 
000004 68: ADD #2,4(SP) ‘ PhicRE NT THE RETURN 
; MOV (SP)+,R2 i #BOP op SThek 1 INTO Re 

MOV (SP)+/RI : INTO RI 
RTS PC  RETU 


160732 


160716 


5 5 RAARSEEAAAA AAAS SLE LAAESS SELES LALSA ARERR AT ARREARS AAS HELE RE 


-SBTTL ERROR MESSAGE GENERATION ROUTINES 
5p MMH EEE ERE REE E EEE ERE REESE 


;PRINT LINE 1 OF ERROR MESSAGE: 
; "HH: MM:SS’ 


LINEL: BIT #SW10, 2SWR ;SWITCH 10 SET ? 
Q ;BR IF_NOT 
YPE ELL ;RING THE BELL 
1$: BIT &SW13, ISWR :INHIBIT TYPEOUT ? 
;B8R IF NOT 
DISP CRLF i CROLF 
BR 5x2 
2s: ISR STIME YPE THE TIME 
DISPLY ,LINSPO :S 
3S: RTS PC :RETURN & TYPE DESCRIPTION 


i PRESE Line 2 OF _ERROR MESSA 
ORDER =_XXXX PRI vious ORDER = XXXx’ 
;’# ERROR d BAD TRACK Bae OR 
; ORV RPCS RPOS1 RPER1 RPERe RPER3S  RPEC1 RPEC2* 
; 7 RPWC *apBa POA RPAS RPLA RPDB RPMR- RPODT' 
;RPSN RPOF RPCA RPCC TATUS’ 
: Bue ADDRESS OR WORD COUNT NOT CONSISTENT’ 
*RPBA = XXXXXX RPWC = XXXXXX 
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CZRIOC.P11 1S-DEC-77 10:58 ERROR MESSAGE GENERATION ROUTINES SEG 0094 
E062 ;’"BUFFER ADR = XXXXXX SIZE = XXXX ACTUAL NMBR WROS XFRD = Xxx’ ; 
5064 o202e44 LINE2: 

4 Ol MOV R3,-(SP) ; ;PUSH R3 ON STACK 

1 MOV RY, -(SP) ;;PUSH RY ON STACK 
20e seais 001165 BrspLy Serr sy Jepalleaacgmecs 
epe8 nearti pie 4g jERELE MESSAGE ADDRESS STORAGE 
5070 Oe0ebe CLR RY : WORK GISTER 
2071 gecees 1 psoeue 020404 MOV P NEC Hs : Ss "PRESENT ORDER = ° MSG 
75 , sai Bree ce FOO E ICANT BITS 

2633 ei 26340 BLE peo i$" + POPE i FIRST MNEMONI 
Ba t 4 - Bea CINE fot at agpmdccnben: 
5077 Tate 12737 050263 020404 MOV GL THBP 4g i BP oRESS OF PREV IOUS ORDER = ’ MSG 
5078 §58333 il 27 MOVB SPREVOLRO),R4Y  ;PREVIOUS OPERATION CODE 
5079 e704 177701 BIC utC7b, RM :$8 YosiGh FICANT BITS 
soa ca, CoO a” eed Lonnie Revo Menon 
5082 005005 1$: CLR RS 'CLEAR THE TABLE INDEX 
Bie — os = CHEE QRTBL(RS),RY LOOK EN OPCODE COUNT EQUALS OPCODE 
508s 0 105768 001766 rste OPTBL (RS) i LOOK. OR END OF TABL 
eee 005205 I RS i OR CREMENT THE POINTER 
5088 900 BR 23 i CONTINUE - NOT END OF TABLE 
cose eras Sees a: See ‘BHET BE trex 
5091 ASL RS : SHIFT THE INDEX 
5092 12737 002010 o20410 MOV #MNTBL, SS : SS OF ASCII TEXT TABLE 
ebay oS (mealies SYeery =e ee yp eX 
5095 Becvos bScdac 4S: a” 0 ; a5 OF 'PRESENT’ OR ’PREVIOUS* MESSAGE 
5096 Ob 1049414 ie OISPLy . tT THE OPERATION MNEMONIC 
ebeg pSputs ened : RT PC aagt TO MAIN ROUTINE 
5099 G20414 005737 001264 LINE2A: TS BADSEC :PRINT THE BAD SECTOR LINE ? 
€i00 gegen 001404 Q LINEeB ‘BR IF NOT 
5101 Geos 104414 001165 ISPLY ,S$CRLF + CR-LF 
5102 26 104414 050307 DISPLY ‘LINES ‘ERROR ADDRESS DEFINED AS BAD AREA 
5103 Oe043e 104414 1165 LINE2B: DISPLY ;SCRLF >CR-LF 
cig Bowe lewis fect BISety ‘Piso FBOPARED ape RecISsTER vEAveR 
5106 O20446 013746 O012%6 MOV UNIT. -(SP) :PUT THE DRIVE NUMBER ON THE STACK 
E107 Oe04Se 004737 022074 R PC, LINDEC : TYPE DRIVE NUMBER 
5108 Oeo4Se 104414 OS2ISs DISPLY ,LINSP :SPA 
c1fe Bebe Basra feovte my ABTA. EAT Phe AOE Efe 
S111 O2047e 032777 OOOO4C 160440 BIT #SWOS, ISWR :PRINT THE OPTIONAL REGISTERS ” 
Eile OS pe05 001014 1$ ‘BR IF NOT 
E113 Oe0S02 104414 047742 DISPLY ,DH1S 
5114 20506 012705 os0204 MOV bOT15,RS ;SECOND DATA LINE 
E115 O205i2 004737 Oedeie JSR PC, 3$ !PRINT THEM 
S116 20516 104414 050041 DISPLY ,DHi6 
€117' O20S22 O1e70S oS0e26 MOV &OT16,RS ;THIRD DATA LINE 
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Pil 1S-DEC-77 10:58 ERROR MESSAG generation” ROUTINES SEG 0095 
737 0616 ISR ;PRINT THE REGISTERS 
32760 100 oooo016 1S: BIT apie, STATUS(RO)’ jDATA ER ROR ? 
4 160 M4 q BR va Nes Z 
7 t | ’ 
S05 Booe3e ABD SRPHC (RO) CS)” FADD REMAIN Ife WORD COUNT 
b20s 16 ASL *CONVERT TO AN BYTE INCREMENT 
S54 066016 o00006 ADD SUF CR : BUFFER STARTING ADDRESS 
o2 000240 CMP (SP)+, Saga. RO) : CORRECT FER ADDRESS ? 
4 1410 BEQ 2s BR iF Y 
104414 047231 DISPLY M46 ; BU ESS AND WORD COUNT ARE NOT CONSISTENT’ 
020876 004737 B20718 waR é “LIN 30 SPRINT LINE 30 OF ERROR MESSAGE 
gedb0e 737 021326 - ISR PC*LI :PRINT LINE 4 OF ERROR MESSAGE 
Ge0608 012605 MOV (SP)+,RS ;;POP STACK INTO RS 
020610 012604 MOV (SP) +’ RY ::POP STACK INTO R4 
020612 012603 MOV (SP )+'R3 ::POP STACK INTO R3 
020614 7 RTS c ‘RETURN TO ERROR PROCESSING ROUTINE 
b20616 12546 3S: MOV (RS)+,-(SP) :PUT THE REGISTER INDEX ON THE STACK 
060016 ADD RO, (SP) :ADD DRIVE’S TABLE ADORESS 
O20622 017646 000000 MOV ac SP), -(SP) ; VALUE 
020626 004737 Oeee42 JSR PC _LINOCT ‘TYPE IT 
020632 005726 TST (SP)+ :CORRECT THE STACK POINTER 
020634 109414 oS21SS DISPLY .LINSP ‘PRINT 2 SPACES 
020640 005715 TST tRS) sAT END OF LINE ? 
42 001365 BNE 3$ ‘BR IF NOT 
Oe0644 104414 001165 4S: DISPLY SCRLF :CR-LF 
O2ed&So 900207 RTS pc : RETURN 
;PRINT LINE 3 OF ERROR MESSAGE _ 
:*ERROR AT CCC TT SS. PREVIOUS ADR = CCC TT SS’ 
O20652 104414 050343 LINES: DISPLY ,LINM3 LINE 3 ENTRANCE 
O65 900517 BR LIN3.1 ‘FIN NISH PRINTOUT 


;PRINT LINE 3A OF ERROR MESSAGE 
;’START CYL = CCC END CYL = CCC’ 


O20660 104414 050361 LINE3A: DISPLY ,LINN3 ;LINE 3A ENTRANCE 
os BR LIN3.1 ‘FINISH ERROR LINE 


;PRINT LINE 3B OF ERROR MESSAGE 
:*START CYL = CCC END CYL = CCC ACTUAL CYL = CCC’ 


020666 004737 021230 LINE38: JSR IN3.3 ;LINE 38 ENTRANCE 
020672 104414 O01165 DISPLY Peake e 
020676 000207 RTS pC 


;PRINT LINE 3C OF ERROR MESSAGE 
:*START CYL = CCC ENO CYL = CCC ACTUAL CYL = CCC’ TRK = TT’ 


0 LINESC: JSR PC,LIN3.3 LINE 3C ENTRANCE 
2 IMP LIN3.4 FINISH MESSAGE 


nat LINE 3D OF ERROR MESSAGE 
RPBAR = XXXXXX RPWC = XXXXXX’ 
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77 16:58 ERROR MESSAGE GENERATION ROUTINES SEG COSE 
000040 160222 LINE3D: BIT #SWOS, ISWR ;SWITCH S SET ”? 
a ie. PE 
Ba0335 MOV gRPBACRO) ,-<(SP) BUF R ADDR REG CONTENTS 
2242 JSR C,LINOCT ;CONVERT TO OCTAL AND TYPE IT 
DISPLY gbihis :* RPWC =’ 
36 MOV WC(RO),-(SP) :WORD COUNT REGISTER CONTENTS 
Oeee4 JSR PE .LINOCT :CONVERT TO OCTAL AND TYPE IT 
— 1s RtertY PC 4 


;PRINT LINE 3E OF ERROR MESSAGE 
;’ START CYL. = CCC START TRK = TT START SEC = SS’ 


26 LINE3E: DISPLY LINS3 ;’START CYL =’ 
000012 MOV $CYL(RO),-(SP) ;MOVE CYL TO STACK 
274 JSR PC Linoet :TYPE IT IN DECIMAL 
OS5e155 DISPLY ,LINSP : 
os0s54 DISPLY sLINSTS :?START TRK = ’ 
CLR ~(SP) :CLEAR STACK 
000011 MOVB STRK(RO),(SP) TRACK TO STACK 
Geee7s ISR PC, LINDEC :TYPE IT IN DECIMAL 
Iss DISPLY ,LINSP : SPACES 
7 DISPLY ‘LINSS3 :*START SEC =’ 
CLR ~(SP) :CLEAR STACK 
000010 MOVB SSEC(RO),(SP) SECTOR ADOR TO STACK 
022274 JSR PC LINDEC :TYPE IT IN DECIMAL 
001165 DISPLY ,S$CRLF 
RTS pC 
;PRINT LINE 3F OF ERROR MESSAGE 
:*RPDA = XXXKXX  RPCA = XXXXXX’ 
000040 160066 LINE3F: BIT sSWS, ISWR ;SWITCH S SET ”? 
BEQ 1§ :BR IF NOT 
osos2e ISPLY LINDAS 7 =' ; 
000242 MOV $RPDA(RO),-(SP) :PUT SECTOR/TRACK ADDRESS ON THE STACK 
22242 JSR PC LINOCT :TYPE IT 
OS21s5 DISPLY ,LINSP : SPACES 
050511 DISPLY ‘LINCAZ :? RPCA =’ 
000270 MOV $RPCA(RO),-(SP) :PUT DESIRED CYLINDER ADDRESS ON THE STACK 
022242 ISR PC LINOCT :TYPE IT 
061165 DISPLY ,$¢RLF 
18: RTS PC 
s°CCC TT SS PREV ADR = CCC TT SS’ 
000272 LIN3.1: MOV SRPCC(RO),-(SP) ;PUT CYLINDER ADOR ON STACK 
022274 SR , LINDEC > TYPE IT IN DECIMAL 
OSO3Sé DISPLY ,T :PRINT ' T° 
Geeais JSR PC, READOR ; DECREMENT TRACK AND SECTOR ADDRESSES 
2274 JSR PC'LINDEC : TYPE TRACK IN DECIMAL 
050402 DISPLY ,§ :PRINT * §? 
022274 ISR PC LINDEC : TYPE SECTOR ADDRESS 
So4os DISPLY .LINP3 !PRINT "PREV ADDR’ 
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RROR MES GENERATION ROUTINES SEG 0097 
34 MOV PREVA+2(RO),-(SP) ;PREVIOUS CYLINDER 
22r4 ie 3 , LINDEC i TYPE IT IN DECIMAL 
_ CLR = (SP) * MAK ROOM THE STA 
900033 MOVB SPREVA+1(RO), (SP) -PREVIOUS TRACK ADDRESS 
Sa02 Brepty “grt tNoec rer ge eacer. 
ere ~(SP) :MAKE ROOM ON THE STACK 
MOVB SPREVA(RO),(SP) ";PREVIOUS SECTOR DDRESS 
022274 SR PC, LINDEC ;tyPE IT IN DECIMAL 
001165 DISPLy ,$CRLF 
Ts PC 
;'START CYL = CCC END CYL = CCC’ 
N3.3: Y INS3 -LINE '38 & 3C’ ENTRANCE 
Bod — prot PRE Vw? (ROD ,-<SP) “PREVIOUS CYLINDER 
2274 C, LINDEC ;TYPE IT IN DECIMAL 
O0S0443 DISPLY ,LINEN3 :PRINT "END CYL’ 
000272 MOV $RPCC(RO),-(SP) PRESENT CYLINDER 
022274 ISR PC,LINDEC :TYPE IT IN DECIMAL 
RTS ¢ 
ACTUAL CYL = CCC TRK = TT’ 
4: PLY NA ;PRINT ’ACTUAL’ 
arts — a7 . abt 2 -«SP) TACTUAL CYLINDER 
10000 BIC sBITi2: (SP) :CLEAR THE FORMAT BIT 
2274 ISR PC LINDEC :TYPE IT IN DECIMAL 
DISPLY ,LINT3 :PRINT TRACK 
She - SREDACI(RO), (SP) SBUT TRACK ON STACK 
O53 JSR Be LINDEC ° ;tyPE IT IN DECIMAL 
00116S DISPLY ,S$CRLF 
RTS pC 
: PRINT 4 OF ERROR MESSAGE 
OEP rER ADR = XXXXXX SIZE = XXXX ACTUAL NMBR WRDS XFRD = Xxx’ 
000100 OCOD16 LINEY: gir #B1TO6, STATUS(RO) ai DTA ERROR ? 
PLY ,LINMY :*PRINT BUFFER’ 
SSOBBE oie . SBUF (RO) -(SP) jBUFFER ADOR ON STACK 
2242 R C,LINOCT :CONVERT TO OCTAL & PRINT 
0625 DISPLY ,LINSY : PRINT " SIZE” 
000020 MOV $WROL(RO),-(SP) ;BUFFER ST 
022274 JSR PC LINDEC : YPE IT IN DECIMA 
050637 DISPLY ,LINKY :*ACTUAL NMBR WROS XFRO = ° 
40 MOV $RPBA CRO) -(SP) : VALUE IN BUFFER ADOR REGISTER 
O& SUB BUF(RO),{SP)  ;SUBTRACT STARTING ADDRESS 
ASR (SP) ‘CONVERT INTO A WORD COUNT 
Boriee BrepLy ‘Sthire LLPh Ft a Eta 
m 1S: RTS PC t RETURN 


;PRINT LINE S OF ERROR MESSAGE 


ESRIBEO STP TBR poe, | MACY! GBs sblsbticRlact Sect? SEG 0098 


;’GOOD DATA = XXXXXX BAD DATA = XXXXXX SECT POS = Xxx’ 


p21416 104414 7 LINES: DISPLY LINOS PRINT 'GOOD DATA’ 
14 760 000240 he SRPGACRO) BACK THE AD RESS uP 
2630 021430 49 HOV RPBAK RO), -(SP)’ DATA - AT THE BUFFER LOCATION 
1 14 3 4 R NOC iT 
5292 021440 104414 050707 DISPLY Ctnes PRINT 'BAD DATA 
2¢33 Geiuwe 4 MOV SRPDE CR (RO), -(SP) :BAD DATA PROM BUFFER 
pegs Oelve4 016046 900236 nov res + 76SP) ROE FENGTH sfiite : 
2S Be Gee SRns ape at 
&| - 
52 851398 pas 37 027054 JSR $2 ETN By’ btu ibe words FERED By SECTOR SIZE 
5300 Qe1476 012616 MOV AT i (SP) :MOVE _REMAI THE S 
E301 iS 104414 0507 DISPLY ,LINPS :PRINT ‘SECT boo 
230¢ 021504 004737 022274 R PY LINDEC : TYPE THE POSITION 
5 021510 104414 OO116s DisPLy ,S$c¢RiF 
2304 021514 000207 RTS pc 
5306 ho} LINE SA THE RROR MESSAGE 
2307 "HEADER FROM E ROR ECTOR brat XXXXXX XXXXXK XXXXXKXK" 
5309 1516 194414 0743 LINESA: DISPLY RC TENTS OF ERROR SECTOR’ 
5319 951228 013746 44S6 nov abi BR -(SP) iMERDER Post TiO 
e312 pstess th pesice BTePLY LIinsP pets: gt 
2315 021536 0137468 O544 MOV evi DeRs2 -(SP) {HEADER POSITION +2 
cule else lowis Besist Bffeuy Fetkeet famed 
5316 Deisee 13746 Deues MOV ee BPR ay -(SP) READER POSITION +4 
5317 1556 73 2242 JSR PC LINoct ; TYPE 
5318 O21562 104414 OSe1Ss DISPLY NSP :SPA fea! 
5319 G21566 13746 OS4464 MOV tYLDERs6, -(SP) {HEADER POSITION +6 
5320 1572 7 022242 JSR : TYPE IT 
5321 021576 104414 OSeiss DISPLY C the SP : SPACES 
3322 Ge160e Long 14 001165 DISPLY ScrUF 
5324 
p25 ;PRINT LINE SB OF ERROR MESSAGE 
2 :*RPECI = XXXXXX RPEC2 = XXXXXxX’ 
5328 O21610 104414 050777 LINESB: DISPLY ,LINEPS ;’RPEC] = ' 
5329 021614 O1604%6 000300 MOV $RPEC1(RO),-(SP)’ ;PUT REGISTER CONTENTS ON THE STACK 
5330 Oel620 37 Oeee4e2 R PC,LINOCT ; TYPE IT 
£331 Oel6e4 104414 0515 DISPLY LINDE ; SPACES 
6332 O21630 104414 051010 DISPLY ‘LINEOS RPEC2 = 
£333 021634 Oieo4e 000302 MOV $RPEC2(RO), -(sP)' PUT REGISTER CONTENTS ON THE STACK 
Se RIES tect Beties Bideuy Pgeeigert THE 
2336 021650 600207 RTS bc ; RETURN 
£338 ;PRINT LINE 6 OF ERROR MESSAGE 
2339 :*SECTOR IS ECC CORRECTABLE’ 
E34i Oelese 104414 os1022 LINE6: OISPLY ,LINBS sECC CORRECTABLE 


nur 


Ww 
© 
N 


UCN CI UU OT U wn 
DPDDD.DO DDD Ww 4 WwW 
SR 2h e 
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DEC-77 10:58 ER ROR MESSAGE GENERATION ROUTINES SEG 0099 
104414 001165 p fgPLy SCRLF 
000207 pc 


;PRINT LINE 6A OF THE ERROR MESSAGE 
:’SECTOR READ CORRECTLY AT OFFSET N’ 


104414 951055 LINEGA: QISPLY LINC6 ;PRINT_'READ CORRECTLY AT OFFSET N° 
LING. 1 : TYPE THE REST OF THE LINE 


;PRINT LINE 6B OF THE ERROR MESSAGE 
:*SECTOR IS ECC CORRECTABLE AT OFFSET N’ 


104414 051022 LINEGB: DISPLY LINBE ;PRINT *SECTOR IS ECC CORRECTABLE ’ 
000406 LING. 1 

;PRINT LINE 6C OF THE ERROR MESSAGE 

:*CORRECTED ON NTH RETRY’ 
104414 051104 LINE6C: DISPLY ,LINGS ;’CORRECTED ON NTH RETRY’ 
000414 BR LIN6.2 : TYPE THE REST OF THE LINE 

s PRINT LINE 6D OF THE ERROR MESSAGE 

"UNCORRECTABLE AFTER N RETRIES’ 

104414 051133 poe DISPLY eb inuge ;"UNCORRECTABLE AFTER N RETRIES’ 
000411 :F INISH 

: TYPE THE OFFSET VALUE IN MICRO-INCHES 
006301 LING.1: ASL Rl ;DOUBLE THE OFFSET TABLE INDEX 
016127 002240 021726 HOV ey OFMTBL(R1),1$ ADDRESS OF OFFSET POSITION MESSAGE 
ooco0co 1S: “WORD O ;OFFSET VALUE 
104414 001165 DISPLY ,.SCRLF 
000207 RTS PC 

;RETRY COUNT TYPEOUT 

O4 LING.2: CLR -(SP) ; CLEAR STACK 

113716 001253 MOVB RETRY+1, (SP) ;RETRY COUN 
004737 022274 SR C,LINDEC : TYPE IT IN T DECIMAL 
104414 OSilee DISPLY ,LINRE : RETRY’ 
104414 OO11ES DISPLY $CRLF 
000207 RTS pC 

;PRINT LINE 7 OF THE ERROR MESSAGE 

!* ORDERS: XXXXX TOTAL ERRORS:XXX  WRDS XFRD:XXXXXXX WRDS READ: XXXXXXx" 
104414 051206 LINE7: DISPLY ,LIN70 ;PRINT ORDER COUNT 
012746 600036 MOV BSOPERC, -<SP) 370 STACK 
06001 ADD RO, (SP?) ADD THE BASE ADDRESS 
004737 032562 ISR PC’ $0820 CONVERT IT 
004737 027370 JSR PC’ $SUPRS :PRINT IT 
104414 O6&1265 DISPLY ,LIN?7T ? TOTAL ERRORS 
G16046 OOOOSE MOY $tOTAL (ROD, -(SP)’ TO STACK 
004737 O22274 ISR PC, LINDEC ;TYPE IT’ IN DECIMAL 
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C2RIDC.P11 1S-DEC-77 10:58 ERROR MESSAGE GENERATION ROUTINES SEG 0100 
$338 peene 10et4e BodoNG DISPLY {LINX isp) {RRORESS OF LOW WORD ON STACK | 
500 ae050 33 a0 mg. SE). ‘ONY RT 
ae) 

ue peshae 737 PC: Ss : 

S403 Oee042 104414 051313 DISPLY LINZR :’BITS READ’ 

e Ge i a bs ap -(SP) ‘LOW WORD ADDRESS 

4 1 ADD , (SP) 

54 Geeoss 37 JSR PC, $DB20 ; CONVERT 

54c 2060 737 376 JSR PC SSUPRS : PRINT 

5408 022064 4 1165 DispLy ,$¢ 

2409 gee070 O4414 001165 DISPLY SCRLF 

416 74 100000 157036 BI &SW1S, ISWR ;SEE_IF ‘HALT ON ERROR’ - SWITCH 15 
S411 Gee19e 001401 BEQ 1§ :BR IF NOT 

5412 Oecl 000000 HALT :SWITCH 15 HALT 

otis 022196 000207 1S: RTS PC 

S415 ;PRINT LINE 7A OF _ERROR MESSAGE 

euié ORDERS: XXXXX TOTAL SEEKS=XXXXX TOTAL MISPOS ERR = XXX TOTAL SKI,OCYL ERR = XXX" 
S4ig o22110 104414 051206 LINE7A: DISPLY IN70 - ORDERS =’ 

5419 O22114 O12e746 000036 MOV WSOPERC, -(SP) ;ORDER COUNT INCREMENT 

5420 Geele0 060016 ADD RO, (SP; ; Se ADORE SS 

S421 Geelee 004737 032562 ISR P » $0820 ‘CONVERT THE COUNT 

5422 Geelee 004737 927370 PC’ SSUPRS :PRINT IT 

5423 2132 104414 1216 DISPLY ,LIN7P ?*TOTAL SEEKS = ’ 

S424 Ge 136 012746 o00042 MOV bSPostT, -(SP) : TOTAL SEEKS 

542s 142 16 , (SP) *DEVICE TABLE ADDRESS 

5426 4 Oee144 737 032562 J PC; $DB2D ‘CONVERT THE SEEK COUNT 

5427 OeelS0 004737 027379 JSR PC’ SSUPRS :PRINT IT 

S428 022154 104414 051160 DISPLY Linen :* TOTAL _MISPOS ERR = ° 

5429 Ge2i60 O16046 000066 MOV $n SPO(RO),-(SP)'_; TOTAL E ORS 

5430 2164 004737 Oe2ee74 JSR C, LINDEC ;TYPE IT IN DECIMAL 

5431 022170 104414 051236 DISPLY ,LIN7S :* TOTAL SKI,OCYL_ERR = ° 
S432 022174 O1 000064 MOV $SKI(RO).-(SP) :CONVERT 8 PRINT IT 

5433 Oe2e00 737 Oe22e74 JSR PC. LINDEC : TYPE IT IN DECIMAL 

5434 Oeeed4Y 104414 OO116S DISPLY ,$CRLF 

5643S Oeecio Lous 4 001165 DISPLY ‘SCRLF 

5436 Oecel4 3997 100000 156716 BIT &SW1S, ISWR ;SEE_ IF HALT ON ERROR - SWITCH 15 SET 
5437 Oeceee O01401 BEQ 1$ :BR IF NOT 

5438 Oeeee4 o000 HAL T :SWITCH 15 HALT 

2433 O2e226 000207 1S RTS PC 

S441 ;PRINT LINE 8 OF THE ERROR MESSAGE 

ede *DIFFERENT ERROR DURING RETRY’ 

E444 022230 104414 051330 LINEB: DISPLY ,LINEM 

cys 2234 004737 O20244 JSR PC, LINE2 ;PRINT LINE 2 OF ERROR MESSAGE 
eiue 2240 000207 RTS PC 

C446 ;OCTAL TYPEOUT ROUTINE 

S449 ;CALL: : S 
c4s0 ; MOV NUM, -( SP) ;PUT THE NUMBER ON THE STACK 
Eyci : JSR PC, LINOCT 

5452 : RETURN 
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C2RIOC.P11 1S-DEC-77 10:58 ERROR MESSAGE GENERATION ROUTINES SEG 9101 
suse 22242 016546 990002 LINOCT: nov B(SP) > -(SP) oiveRtt R_IN N PROPER . LOCATION ON STACK 
456 12637 2266 MOV cse5e4i ‘3 ;GE peer oF THE eect STRING 
457 eeee 000005 O22266 ADD es THE LAST & ASCII OIGITS 
4 2264 414 DISPLY fa 
45 FI 1S: WORD O  ADDRE $ 
4 22 b1ee18 MOV (SP)+, (SP) Cc CT THE STACK 
5461 O22e7 0267 RTS Pc tRET 
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REBRES 
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LOS 
FPF bE, MACY ei eR nestace GeNeRATION ROUTINES 


ipgepine TO.CONVERT THE INPUT NUMBER TO DECIMAL AND TYPE IT WITH 


;PUT THE NUMBER ON THE STACK 
JeR ony PC, De LINDEC 
LINDEC: nov Bi52e35 245 (SP) SET up St STACK K FOR CONV ONVERT 
ns Cepia ; RS yee T (arth CERDING ZEROS SUPRESSED) 


5p REESE ALES LAER E SESE SERRE EEE EEE EEE 

-SBTTL GENERAL SUPPORT SUBROUTINES 

5p eee ELAR LEA ERE ASR EEE EERE EEE EE EEE 
+ Ste geal THE SECTOR-TRACK ADDRESS 


MOV pe READOR ;O0PB ADDRESS 


JSR 
; CEPS CONTAINS THE TRACK S 
: 2(SP) CONTAINS THE BEE OR REDRESS 
READDR: SUB #4, SP ;DECREMENT THE STACK POINTER 
By SRE} tha Pin Seek ME STACK 
CLR (2p) + EER STACK FOR TRACK 
MOVB (RO),4(SP) *; INCREMEN ay CTOR ON STACK 
Cc 4(SP) ;bEC NT THE SECTOR ADDRESS 
L 1 ;BR 1 CTOR ATER THAN O 
MOVE 5 boat PRO) 2csps naTBaCK A S = 3 ote 
Cc (SP) NT TRACK ADDRESS 
BEL 2s Be eT DIDN'T 189 O NEG 
mo #18. ,2(SP) RACK TO 18(10) 
1$: MOVB Shrone1 (ROD, 2¢5P) - TRACK ADDRESS 
2s: RTS Cc ; RETURN 
;ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
CKCLK: MOV 8-1, CLKFLG CLEAR LEAR CLOCK AVAILABILITY FLAG 
MOV #-1'’PCLOCK 3 CLEAR, rekon cLOck AVAILABILITY FLAG 
MOV eckeLKI , ERRVEC OR CLOCK CHECK 
a eo 
CLR LKFL raat CLock OF MA eBILITY FLAG 
Soe SEBOE my faust Vet Skanes 
MOV #CLOCK’ (R1)+ Set UP PKWI1-P VECTOR 
MOV #300, (R1) oy PRI 6 
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ZRIOC.P11 1S-DEC-77 10:58 NERAL SUPPORT SUBROUTINES SEG 0103 
5 RE GARE AG tHE PPCERA EAT EE, tlt 
oooooy “KCK! sexeLxe, aseRRveC’ nARLIGE E R VECTOR 16 CHECK FOR KWLI-L 
T KW11-L 


156430 


Beera3 CKCLKe: 


S888 


LK 
Both npg Y epenae® 
18 ask Ks ; KW11-L INTERRUPT 

eB BORE a Sck Rust é NOR system’ 


38° 


4 TST :UNDER MONITOR CONTROL ? 
Beesre Boo37 005344 568 15, us : f BR RAM 
zoe Gone? gouce 9 TS See sae oan 
Qs 12737 CKCLK3: MOV BG, QHERRVEC REST THE ERROR VECTOR 
2538 2612 7 RTS PC 
5 40 s ROUTINE TO DISPLAY STATISTICS FOR ALL DRIVES ASSIGNED 
4 ; PC, STATPR 
En es ee 
554S 022614 010046 STATPR: MOV RO, -(SP) ; SAVE RO 
$ a an 
4 737 001462 TST S Y Rives ASSIGNED * 
mt i? , 022724 fee Be SHDTYP 
5550 CLR RY’ ive he’ BRlve INDEX 
ss 1$: ASL RY , :¢ fies HOR OS 
3 6 001740 nov BLKADR(R4) , RO i GET i *S BLOCK ADDRESS 
é 4q “4 e 033320 001462 BIT ATABIT(RY),ASNLSt ;1S HIS DRIVE ASSIGNED ” 
beak Beeps bou739 022746 158 Be SDETAL Pree 7 RFORMANCE SUMMARY 
2s: NC RY’ ;INCREMENT THE INDEX 
sse 02 27 OO00010 CMP RY, #8 ;FINISHED ? 
553 fesese Soles oe iy i 
eee 72 015600 or HOV (SPs: B4 RES ORs rs 
sees BS5035 Bisse RTS : RETURN 
goed ; ROUTINE TO TYPE STATISTICS FOR AN INDIVIDUAL DRIVE 
266 ; MOV ;DPB ADDRESS 
; JSR pee e PEST 
568 H RETURN 
5570 02267 10046 TYPEST: MOV RO, -(SP) ;SA 
zexd S85 sg739 022724 SR sag SHBTYP SAVE ANE HEADING 
5573 022706 oosco4 CLR RY :CLEAR R4 FOR ORIVE NUMBER 


a 
z 
A 
5 


S84 


ut 
@o 


38 


aininiatataintatatral 
BEIFRZGV=S 


peptnneoees 


PREROR TTS. 


WD NOU £ Wr 


EEL 
DU DRM BUG 


pp 


Se Se 


88 


<= 


TSERROBS aRRD IS: 


S 
o 


8 
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77" bse 


1 1 
A tee 
7 
7 


BB7430 


027430 


000036 


906070 
7770 
027300 


0S215S 


SFiS 
SSGA5E 
032562 
027300 
052155 
000004 


627300 


o0Se155 
000004 


MACY11 30(104%6) 
GENERAL 


;CALL 


NO&S 
SUPPORT suerbutiNes 


RETURN 


PC, SHOTYP 


sor: 1 RA 
CRLF 


Wee The, STATISTICS 
gps 


342 THE HEADER FOR THE DRIVE PERFORMANCE SUMMARY TYPEOUT 


NPE Bi obfoeth 8 


pe HEADER 


; RETURN 


OME: THE PERFORMANCE SUMMARY DATE LINE 


SDETAL: 


RS, TYPRI4 
STATHO 
RTS PC 
MOV SORIVE RY 
MOV sop, RO 
RETURN 
MOV ,7 (SP) 
MOV *Re 
ADD #SOPERC, Re 
MOV R4, -(SP3) 
jeue 6 INSP 
MOV PASSE (ROD ,-(SP >’ 
JSR C,$SB 
1Eieo See REPt 
TYPE LINSP 
MOV Re, -(SP) 
JSR PC; 20 
JSR RS, REPL 
.WORD 6 
TYPE LINSP 
ADD &4,R 
MOV R2,-(SP) 
ISR PC, $DB20 
JSR RS,REPLZ 
WO & 
TYPE LINSP 
oe a 
JSR Be? DB20 
JSR RS; REPLZ 
.WORD 10, 
TYPE LINSP 
ADD b4, R2 


NUMBER 


‘BBB AODRE 


ive 
on ON THE STACK 


Ne 20 DIGITS 
t INCREMENT Re 


ADDRESS 
i Pere Rue tt IELD 


igo Tyee 
jest 


PASS COUNT ON THE STACK 
ANVERT TT 


iP ut POSiT 0 ON THE STACK 


:T IT 
Ne B DIGITS 
i+ E 


; MENT Re 
if Sdet sha ON THE STACK 


SEG 0104 


C 
Cc 


SRIDC. 


R 
REG 


dat aatat at awed stat ata at at a 
PRL O.bD VTE 


Re 
N 


RREERERS 


re. 


See ra reaee 


tatatalgiatatatays 


REGEER 


0, RPOY/S/E 


B09 
iseort-77 ibsse | *°Y"! SCENERAL SUBPORT agithipe il ve 


MOV Re, -( 
) 


Pil 


SERS ESRRRNS TOR 


Oe a ee ae fae ee ee em 


4 4 4+ ~4 4 
YSIS ASR 
heated 
ae vo 











001264 
000060 
000060 


023417 


eure Be en THE STACK 


‘Me 

: NT Re AGAIN 

; T ON THE STACK 
rei 


37 4 DIGITS 
ON THE STACK 


2x1 ON THE STACK 
Sonysgt $ext 

t TYPE : pieits 

;PUT SPO ON THE STACK 
3c RT SMISPO 


; TYPEOUT SMISPO 
i] 4 DIGITS 


: SUBTRACT 
; SUBTRACT $SKI FROM STOTAL 
; SUBTRACT SMISPO FROM $TOTAL 
;CONVERT "OTHER? COUNT 

TYPE 4 DIGITS 
;RESTORE Re 





;ROUTINE TO INCREMENT S$SOFT 
;NOTE: S$SOFT WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCSOF: TST BADSEC ;SEE IF BAD TRK/SEC INDICATOR SET 
BNE 1$ :BR IF IT’S SET, DON’T INCREMENT COUNT 
CHP SS0FT(RO), #9999. eit? 2 SSOFT ALREADY AT MAXIMUM 


INC peer ee | INCREMENT SSOFT 


1$: RTS pea 


;ROUTINE TO INCREMENT SHARD 
iNOTE: SHARD WILL NOT BE INCREMENTED BEYOND 9999 (10) 


; $ 
ney Tee 


SEG 0105S 
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C2RJOC. 


S687 


sSRCRRT ARES ROSE 


seses 


rs 


1l 


023330 


Heke 


0233Se 


0e3504 


00$737 


000207 


TOsH8i 
013746 


001264 
o0006e 
000062 


001264 
000064 
000064 


001264 
OO0O06E 
000066 


001264 
oocosé 
oooosé 


027300 


053207 
001270 


CO9 
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023417 


023417 


023417 


023417 


11:03 
SUPPORT SUBROUTINES 


INCHRO: TST BADSEC SEE IF BF et, bon! TRCREMERT COUNT 
$Faro:RO), #9999. ° "18 sHarB ALREADY AT RAXIMUN 7 oo 
BHIS 4S ;BR IF IT TS 
do aeo Ro) ; IWCREMENT SHARD 


1S: RTS PC ; RETURN 


;ROUTINE TO INCREMENT $SKI 

;NOTE: $SKI WILL NOT BE INCREMENTED BEYOND 9999 (10) 

INCSKI: TST BADSEC ;SEE IF ' TRK/SEC INOICATOR SET 
BNE BR IF IT’S 


_ 1S : SET, DON’T INCREMENT COUNT 
CMP $SKI(RO), #9999. °;IS $SKI ALREADY AT MAXIMUM 7 


BHIS 1$ ;6R I IS 
NC $SKI (RO) ; INCREMENT S$SKI 
1S: TS Cc ; RETURN 


;ROUTINE TO INCREMENT SMISPO 
;NOTE: $MISPO WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCMIS: TST BADSEC ; SEE iF TRK/SEC INDICATOR SET 
ae ; ISPO(RO), #9999° i $41 PO ALREDDY AT MAXI HUM em 
StTS g F ‘er dP a fs 


INC SMISPOCRO) , ; INCREMENT SMISPO 


i$: RTS ; RETURN 


;ROUTINE TO INCREMENT STOTAL 


;NOTE: S$TOTAL WILL NOT BE INCREMENTED BEYOND 9999 (10) 


INCTOT: TST BADSEC ;SEE IF a4 TRE SES INDICATOR SET 
BNE IF IT’S SET, DON’T INCREMENT COUNT 


CMP STOTAL(RO), #9999: ;IS $TOTAL ALREADY AT MAXIMUM 
BHIS i$ :BR'IF IT IS 
INC OTAL (RO) ; INCREMENT $TOTAL 

1S: RTS PC ; RETURN 


;ROUTINE TO TYPE THE TIME 


STIME: TST CLKFLG CLOCK ON THE SYSTEM ” 
BNE 1 ; IF NOT 
TYPE sc :CR- 
MOV HOUR, -(SP) :PUT “HOURS * ON THE STACK 
JSR PC, $5820 CONVERT TO DECIMAL 
JSR RS, REPLZ ; TYPE T 
WORD 2 : TYP DIGITS 
TYPE COLON 2% s? 
MOY MINUTE, -(SP) ;PUT 'MINUTES’ ON THE STACK 


SEG C10& 
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5742 10 737 027770 JSR PC, $5820 sCONVERT TO DECIMAL 

5743 4 7 027300 JSR RS; REPLZ : vee IT 

5744 WORD e. ; TYP DIGITS 

2ouP 13 ae Bois nove ¢C (SP) ;P THE STACK 

2548 g 38 4678 ISR see OND, = ee a CIMAL 

5748 3538 S37 027300 ISR RS; REPLZ 

5749 354 . WORD : t TYPE E ‘prcrtTs 

2780 3544 00020 1$: RTS Cc 

5785 ;CLOCK HANDLER ROLITINE 

754 023546 7 001274 CLOCK: DEC SIXTEE ; INCREMENT THE 1/60 SECOND COUNTER 
S755 0235 1035 B i$ BR IF A SECOND NOT COUNTED 

5756 Oe 13737 OOl212 001274 MOV HZ, SIXTEE :RESTORE THE VALUE 

5757 3223 37 O0le7e INC :COUNT THE SECOND 

5758 Ge35b6 Ge 74 001272 CMP #60. , SECOND :AT MAXIMUM ? 

5759 3574 1 BNE 1$ :BR_IF NO 

5760 35 7 1272 CLR SECOND i CLEAR T COND’S COUNTE 

5761 DOLE INC INTRVL+2 :COUNT T RFORMANCE SUMMARY INTERVAL 
5762 7 001270 INC MINUT :COUNT THE MINUTE 

5763 Ge361 goer 32 000074 001270 CMP #60. , MINUTE :AT MAXIMUM ? 

5764 101 BNE 1$ :BR_IF NO 

3765 Oe 2 901270 CLR MINUTE i CLEAR THE MINUTE? S COUNTER 

ee . 

e5e9 ps3ess 893535 Bg 1588 001266 CMP #399. , HOUR SAT MAXIMUM 

5768 023640 1 BHIS i$ :BR_IF NOT 

5769 3642 0050 1 CLR HOUR ; CLEAR THE te St ac 

5770 3646 Ole el 1$: MOV #17. .-(SP) :] Ms ON THE ACK 

5771 36) $38 037660 JSR PC. RP ‘ORIVER TIME 

2726 063038 008737 001410 rst trv BR IF ho THE PERFORMANCE SUMMARY ? 
aa Oe3664 23737 001410 oo1412 CHP INTRVL, INTRVL+2 :DISBLAY 1 INTERVAL FINISHED ? 

5776 023674 012737 177777 o01214 MOV s1 STATIN ; SET CE NPORMANCE SUMMARY DISPLAY FLAG 

7 isle L CL M L COUN 

5777 Oe3702 005037 00 CLR NTRVL CLEAR THE PERFORMANCE INTERVAL COUNTER 

378 023706 900002 2s: RTI RETURN 

5780 ;COMMAND DECODE ROUTINE 

5781 ; CALL: 

57Be ; MOV #-1,CFLAG CF LAG” IS NORMALLY SET BY THE TTY SERVICE 
5782 ; ROUTINE IN INTERRUPT MODE 

5784 ; ISR PC,KSR 

e7e¢ ; RETURNI we STEM BUSY RETURN 

2786 : RETURN2 :RETURN AFTER KEYBOARD SERVICED 
5788 923710 0057.37 001440 KSR: TST ORDERG sQNY 1PPERATI ACTIVE ? 

6790 023716 005037 023742 CLR 33 8 PEAR T OOP COUNTER 

E791 Oe23722 OO00410 BR KSR1 : OCESS KEYBOARD REQUEST 

5792 Ge37es Obe7 37 000001 o23742 1S: ADD #1,3% ; COUNT THe TH TIMES THROUGH THE LOOP 
£793 37 1002 BNE g ;BR IF NOT ENOUGH 

5794 023734 104401 053320 TYPE BUSY :*SYSTEM BUSY... 

£79S 023740 000207 23: RTS pc ?PROCESS ANY COMPLETED DRIVES 

579 Oe374e Oo60000 3$: .WORD O :LOOP COUNTE 

5797 023744 l0441e KSRi:  SAVREG :SAVE THE REGISTERS 
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S798 023746 012737 O00200 177776 MOV #PRY. PS ;SET PRIORITY TO 4 
5799 Ge3754 037 O0l26e2 CLR CFLAG ;CLEAR THE ’CONTROL C’ FLAG 
5800 3760 737 Oe3450 JSR PC, STIME :TYPE THE TIME 
peoL 3758 ? 55156 TST tke ‘CLEAR ANY GARBAGE IN THE TTY BUFFER 
104401 3033 TYPE ,ENTCOM i RENTER, COMMANDS 

5803 774 10441 ROL IN :READ THE KEYBOARD 
5804 1 MOV (SP)+,RS :GET ADDRESS OF INPUT STRING 
580s 737 001262 TST CFLAG : CHECK CONTROL C FLAG 
5806 901085 BNE 7S i EX IF "CONTROL C’ ENTERED 
5807 0s INC RS :POINT TO SECOND CHARACTER 
5808 Oe40'0 122715 000101 CMPB #°A, (RS) :EQ TO AN ’A’ 

euaie 1419 BEG ;BR_IF IT 

io 16 121527 000067 CMPB (RS), #'7 : DRIVE R GREATER THAN AN ASCII 7 ” 

5612 pSups 101033 000060 ohPe O85) #’0 i BR IVE My PR LESS THAN AN ASCII O ? 
581 netince 6 Sei BLO 6$ BR YE IT Is 
5814 Oe4032 142715 177770 BICB #tC7, (RS) ‘LEAVE ONLY LOWER 3 BITS IF CHAR NOT ‘A’ 
581s 2768 000124 177777 1S: CMPB #’T,-1(RS) :EQ TO 'T’ 
5816 1 BNE :BR IF NOT EQ 
5817 737 Oe45S2 ISR PC, NEWASN ‘ASSIGN DRIVE FOR TEST 
5818 Oe 42 BR 7 tEXIT 
5819 Oe40S54 122765 000104 177777 2s: CMPB #'D,-1(RS) :EQ TO ’D’ ? 
5820 1903 BNE BR F NOT EQ 
peel 4 32 24562 JSR PC, DEASGN iDEA SIGN DRIVE 
5823 24072 122765 000123 177777 3S: CMPB #’°S,-1(RS) :EQ TO ’S’ 
S824 024100 901003 BNE :BR IF NOT EQ 
5825 dew de 004 37 024670 JSR PC, SCMND j TYPE STATISTICS 
5826 106 06004 BR :EXI 
S827 O2e4110 122765 O00127 177777 4S: CMPB #’W,-10R5) :EQ TO ’wW’ 
5828 024116 901007 BNE :BR IF NOT EQ 
5829 024120 777 000001 155012 BIT #SWO, ISWR :IS SWITCH O SET ? 
5830 O24126 O0101e BNE 3 :BR IF SET, CAN’T DO ‘W" COMMAND 
5831 Ge¥1 30 004737 025140 JSR PC, DATAPK :WRITE A DATA PACK 
5832 134 o00411 BR 7§ tEXIT 
5833 024136 122765 oo0122 177777 SS: CMPB #°R,-1(RS) :EQ@ TO ’R’ ? 
5834 024144 001003 BNE ‘BR iF NOT EQ 
BB Gewlae 0047 32 025152 JSR PC, REDAPK ; READ A DATA PACK 
2539 eats tert 053011 6$: TYPE , INVLD i TYPE *INVALID COMMAND’ MESSAGE 
5838 024160 104413 7§: RESREG ?RESTORE RO - RS 
5839 024162 beorie po0002 ADD #2, (SP) ? INCREMENT THE RETURN ADDRESS 
5840 024166 005777 154754 TST astKe :CLE HE TTY BUFFER 
5841 024172 052777 OOO100 154744 BIS BI TOh, ISTKS :SET TTY INTERRUPT ENABLE 
5842 024200 005037 177776 CLR PS :SET PRIORITY BACK TO ZERO 
5e43 024204 000207 RTS PC : RETURN 
584s ;ROUTINE TO PROCESS THE ASSIGN REQUEST (’T’, ’R’, OR °W’ COMMANDS) 
ees o24e: 122715 000101 ASSIGN: CMPB #’A, (RS) ;ASSIGN ALL DRIVES? 
5848 Oev¥ei2 001430 EQ Asche :BR IF ALL DRIVES 
5849 Oe4214 111504 ASGN1: MOVB (RS), RY iP RIVE # IN RY 
S850 Oe4216 012737 052231 O26436 MOV #UNTASN,ASNMSG ;'DRIVE ASSIGNED’ MESSAGE ADDRESS 
5851 Oe4¥224 012703 600001 MOV a ‘RELOAD R3 FOR 1 UNIT 
5 O24230 136437 033320 ocO146e BITB ATABIT(RY),ASNLST ;DRIVE ALREADY ASSIGNED ? 
Sess 024236 001013 BNE 2$ :BR'IF IT IS 
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gee4g 005704 rst Ra s TRYING 10 ASSIGN DRIVE 0 ” 
4 bie 7 1s 6436 MOV SNOTAVL , ASNMSG PR ot avALL E’ MESS ADDRESS 
ie 7 ll O41 CMPB #11,41 i SEE IF FROM AN 74/576 
Bod73? | O24346 1S: fee PC, ASGNS 5 ee Te PORVe ON THe SYSTEN roe 
ots Belee 026416 2s: Mia ASERR :RETURN HERE IF DRIVE NOT AVAIL 
74 122737 000011 000041 ASGNe: cHBB #1141 ibe TE Nore AN RPOW/S/’6 ? 
13704 Ol MOV #1,R4 - :START WITH DRIVE 
19 1 007 nov #7. ,R3 ; SETUP FOR ONLY 7 ORIVES 
ay 16 Boao 1S: CLR gs € ART WITH DRIVE 
Ge3e0 12703 000010 MOV #8. ,.R3 DRIVE ¢ T FOR 8 DRIVES 
0047 024346 2s: JSR PC, ASGN3 SASSI L UNASSIGNED, AVAIL DRIVES 
O54334 137 024336 38: Mi 4s jDRIVE NOT ON SYSTEM 
Geve Gosia? etaes “See Bahia”) it Sox FOR Home pRyegN HE STACK 
Deus 136437 85330 001462 ASGN3: BITB BTABIT(RY) ,ASNLST  ; DRIVE ALREADY ASSIGNED ? 
Ge4358 : 737 033316 1$: rst DIUM iDara The FER UNDER WAY ” 
Gev368 110437 044730 MOVB RY, i DRIVE R 
0243 737 015244 JSR PC; RECAL :RECALI E ORIVE 
024374 pOS764 3204 TSTe DRYSTACRY) DRIVE AVAILABLE? 
Gews00 1444 BEQ ASGN7 :BR IF ORI LINE OR NONEXISTENT 
Beas Sepsbo RS iad” Ra INfo-LSRD'Thoes 
Oe4406 016464 001740 O0i1SO6 MOV KADR(R4) , NEWUNT (RY) ADDRESS 
024414 O164 o01740 MOV BLKADR RM), RO ;PUT BLOCK’S ADDR INTO 80 
024420 0047 S16 ISR C, CLROPB CLE OCK FOR DRIVE JUST ASSIGNED 
Gewss Gourds Beeess fe BEBEVER «= HGEY on vBryV5 > Roomese Canis 
34 Bp4939 752 JSR PC, GETADR :GET CTOR ADDRESSES 
012760 000070 MOV #i'S$PASSC(RO) ;P T PASS COUNT TO 1 
46 905732 1216 var pack jWRIT DATA PACK ? 
pSqued 11376 001216 o00026 = nove PACK, SPACK (RO) ier BO/WRITE DATA PACK INDICATOR 
ests Bs a a merrier 
tears cree Ro Blang Eoaritge, Onive manger 
gewa74 Obe7 16 oo0004 ASGNS: abo #4, (SP) j INCREMENT RETURN 
. B12737 052334 0265436 ASGNE: nov BNOTSAF , ASNHSG : UNSAFE" MESSAGE ADDRESS 
024512 105764 033214 ASGN7: tsiB DRVTYPCRY) i DRIVE PRESENT? 
rar ta BPL 2g ?BR if DRIVE OFFLINE 
Gevsee 0127 37 052257 026436 nov BNOTRP , ASNMSG i BDORESS OF "NOT RPOY/S’6" MSG 
Oe4S3e 0127327 O0S2300 O26436 15: MOV BNOTPRS,ASNMSG ADDRESS OF *NOT PRESENT’ MSG 
Oe4E40 900403 BR 33 tEXIT 
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910 O24S42 012737 OS2166 026436 25: MOV SUNTOFF,ASNMSG ;ADORESS OF "DRIVE OFFLINE’ MESSAGE 
gi de45S0 000207 3S: RTS PC :ERROR RETURN 

313 ;'T’ COMMAND (ROUTINE TO ASSIGN A DRIVE) 

915 Qexsse 005037 O01216 NEWASN: CLR PACK ;CLEAR ’W’ COMMAND INDICATOR 
318 Oe4SS6 000137 Oe4206 IMP ASSIGN :GO TO THE ASSIGN ROUTINE 

2318 ;"D’ COMMAND (ROUTINE TO DEASSIGN A DRIVE) 

5920 024562 o0S5004 DEASGN: CLR RY 

5921 Oe4564 12271S o00101 CMPB #’A, (RS) s DEASSIGN ALL DRIVES ” 

eaee 45 14 BEQ S ar YES 

$2 457 12703 000001 v : 1T00,R3 ET Rg OR ONE UNIT 

5924 Oe4576 111504 nove (RS) IVE NUMBER 

592s 46 136437 033320 oOOi462 1S: BIT aTABIT(R4), asnist IVE ASSIGNED ? 

5926 024606 001414 BEQ T 

5927 Ge4610 146437 033320 o014te BICB ATABIT(RY), asnist he ee LETE THE OR DRIVE FROM THE ASSIGNED LIST 
5Se8 024616 006304 ASL RY — ADOR WORD 

$39e9 poRy 001740 OO1464 MOV aamtceaabi DUNITERY) ;PUT ApoRess” IN DEASSIGN LIST 
5930 4626 ee ASR 

5931 024630 303 2s: DEC R3 ;ANY MORE DRIVES ? 

5932 Oe463e 141le BEQ 4§ :BR IF NOT 

5933 024634 005204 INC RY 

5934 De4b36 760 R 

5935 le2715 000101 3S: CMPB #’°A, (RS) ;DEASSIGN ALL DRIVES ” 

5936 O24644 001771 BEG 

5937 46 012737 OS2207 026436 MOV SUNTNOT, ASNMSG ‘ADDR OF *NOT ASSIGNED’ MESSAGE 
5938 024654 004737 O26416 JSR PC, ASNERR :REPORT IT 

5939 024660 000207 4$: RTS 

5940 Oe%662 012703 000010 Ss: MOV #8. ,R3 ;SET UNIT COUNT TO 8 

Boul 024666 000744 BR 1$ 

eis ;°S* COMMAND (ROUTINE TO TYPE DRIVE PERFORMANCE SUMMARY? 

5945 024670 005004 SCMND: CLR RY 

5946 Oe4672 122715 o00101 CMPB #°A, CRS) ;ALL STATISTICS ” 

5947 4676 001421 BEQ RI 

6948 024700 111504 MOVB 'GET DRIVE NUMBER 

£949 702 136437 033320 o01462 BITB araatTcRY), ASNLST ;SEE IF DRIVE ASSIGNED 

5950 Deu? 001406 BEG 1$ ;BR'IF NO 

5951 4712 006304 ASL RY :MAKE DRIVE ADDR INTO WORD INDEX 
59S2 024714 16400 001740 MOV BLKADR (RY, RO ;ADOR BLOCK 

egos Gev7e0 00737 022676 JSR PC, TYPEST j TYPE DRIVE STATISTICS 

595s 726 012737 OS2207 O26436 1S: MOV SUNTNOT, ASNMSG 300A OF "NOT ASSIGNED’ MSG 
5956 024734 737 Oe64i6b JSR PC, ASNERR ERROR MESSAGE 

5957 024740 76 BR ET 

E958 742 012703 000010 2s: MOV ORI COUNT 

Ege3 746 1364 033320 ool46e 3: BITB ae abt CRY), ASNLST SEE IF DRIVE ASSIGNED 

E960 024754 004 BNE 4§ 

5S61 756 oo0c204 INC RY Bes een ORI eROORESS 

5962 7 005303 DEC R3 ECR 

5963 024762 001371 ENE 3$ 

S964 024764 900464 8R 93 + NONE ASSINGED RETURN 

ESE5 Oe47EE 42004737 Oe2614 4g: ISR PC, STATPR :TYPE ALL STATISTICS 
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001216 


001216 
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1578 DATE :SEE_IF ‘DATE’ ENTERED 

BEG iis” - BR alt NOT 

TYPE BATE THe PE eRATOR ENTERED DATE 

118: Ist OPERIO F OPERATOR I.D. ENTERED 
TYP , IDI ‘OPERATOR I.D.:_' 

12% TYPE :OPERTD TenoeR cine” 1.0. 

: MOV ORIVEO+SORVID, 6$ I . FIELD ADDRESS 

CLR a sDRIVE A Re 

Ss: B1T8 aTABIY CRS), asnist- on TF ob peeyenest? 
MOV R4, -(SP) a Ra FOR TY Qu 
TYPOS 5 3G0 2 TAL ASCII 
,BxTe sean ‘4 CLAS ENG ZEROS 
TSTB a6 : SEE IF DRIVE 1.D. ENTERED 
fe re Weel" Roae 

: TYP IX nue 

es ;HORD —— Boh oF oe ive f 1.D. FIELD HERE 

73: DEC R Peace THE COUNTER 
ADD #SRPEC2+2, 65 INCRE MENT MOE MESSAGE FIELD ADDRESS 
NC RY i ANCRENENT DRIVE ADDRESS 
R S$ 

gS: TYPE SCRLF  CR-LF 

93: RTS PC 

;'W’ COMMAND (ROUTINE TO WRITE A DATA PACK) 

DATAPK: MOV #-1, PACK ;SET THE ’W’ COMMAND INDICATOR 
IMP ASSIGN tASSIGN REQUESTED DRIVE 


;’R’ COMMAND (ROUTINE TO READ A DATA PACK) 


REDAPK: MOV #1 PACK ;SET THE 'READ’ INDICATOR 
es IMP ASSIG ‘ASSIGN THE REQUESTED DRIVE 
; ROUTINE TO CLEAR THE DPB FOR THE ASSIGNED DRIVE 
: MOV #OPB,R ;DPB ADDRESS 
: ISR PC, er ROPE 
: RETURN 

ROPB: 
ameenies MOV R3,-(SP) ;;PUSH R3 ON STACK 
MOV RY, -(5P) ::PUSH RY ON TACK 
MOY RS'-(SP) t:PUSH RS ON 


SEG O1i1 


I09 
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6022 O25172 O1 MOV RO,RY ;GET THE OPB_ ADD 
6023 174 7 p00002 ADD 4, Ra :ADOR SOF FIRST pe TO BE CLEARED 
6024 127 o00005 MOV aS'R :RURBE OCNS CLEARED 
pOes peee0s 1$: CLR (R4)+ : Sethe THe LOCATION 
DEC Ra ise MEN 
6027 1 001375 BNE OR IF NOT FINIS 
6028 1 0000 ADD 82 RY ; MO THE of Pa T THE ’REG’ ACOR 
6029 1 1 000070 MOV SS$NEXT-SREG,R3 ; BER L CLEARED 
6030 ge 2s: CLR (R4)+ i CLEAR 
6031 ise ooo0002 SUB se, ,R3 MENT THE LOCN COUNTER 
cose Bess? BEL¥0: coonss an Jed ras Bs 
6034 OeSe 12703 000162 MOV eSRPECE-INSEC, R4 OCNS ee BE CLEARED 
6035 2 oosoe4 3$: CLR eae r: 
6036 162703 ooo002 SUB ae, Ra MENT THE COUNTER 
e538 OeS252 0360 001434 oo00024 SOve BEcc ope (RO)! iF CODE 
6039 613701 001434 MOV CoD af of iT, OAL OF CODE 
6040 4 116160 001760 oo000e MOVB con caren 4 $corind ) £230; ON CODE 
6041 113760 001432 000030 MOVB TTC¢ (RO) ;PATTERN 
6042 Oes 06360 000030 ASLB colt ERM OF TO @ TABLE INDEX 
43 O25 13760 001436 oo0020 MOV SHAD (RO? ;BE INNING RECORD SIZE 
6044 025312 001436 oo0004 MOV BeGs1¢ OM(RO) VALUE FOR DATA TRANSFER 
45 460 O00004 NEG SWROM(RO) ;MAKE IT INTO 2”S COMPLEMENT 
12760 090400 oj00022 MOV wese. CSSSEC(RO) : INITIAL VALUE OF SECTOR SIZE 
6047 132760 000001 900024 BITB 1, SCODE (RO) ; HEADE ORDER ? 
6048 625340 001403 BEQ hE ;BR IF _NOT 
bOu8 geese 062760 oo0004% oco0022 “ ADD #4, SSSEC(RO) tADD HEADER SIZE TO SECTOR SIZE 
6051 025350 012605 MOV (SP)+,RS : BOB STACK INTO RS 
6052 O253S2 012604 MOV (5P)+'R4 :POP STACK INTO RY 
6053 025354 012603 MOV (SP)+'R3 : POP STACK INTO RB 
b054 025356 000207 RTS PC Re? 
epee :ROUTINE TO GET ADDRESS LIMITS FROM THE OPERATOR 
6058 025360 010346 DRVPRM: MOV R3,-(SP) ;SAVE R3 
60539 Oe5362 010446 MOV RY’ -(SP) :SAVE RY 
6060 025364 005737 op004e TST 42’ SRUNNING UNDER MONITOR CONTROL 
6061 025370 001035 BNE 3$ ;BR IF YES 
6062 025372 104401 053:i05 TYPE ENTLMT : ENTER ADDRESSES’ 
6062 025376 006204 ASR RY : CONVERT INDEX TO DRIVE NUMBER 
6064 O25400 010446 MOV RY, -(SP) };SAVE RY FOR TYPEOUT 
6065 3 TYPE DRIV R 
6066 O2S402 10440S TYPOS ;;GO_TYPE--OCTAL ASCII 
£067 O25404 co2 BYTE 2 $3 Tee 2 DIGIT(S) 
Ob8 025405 000 “BYTE * j SUPPRESS LEADING ZEROS 
6069 O25406 104401 053576 TYPE LASH 
6970 OeS4l2e 012737 056364 o254S6 MOV baP 2$ ADDRESS OF "RPO4’ MESSAGE 
6071 0254 132764 0001 032214 BITB SB TTOB" Bhurveces) ;RPO4 
6072 OeS5426 O6101e2 BNE R’ YES 
£073 6430 012737 052371 o2s4se MOV RODRESS OF *RPOS’ MESSAGE 
£074 S436 1320764 O0000e 033214 BITB SBT TOL. Bavrvecel RPOS ? 
£075 o25444 9001002 BNE 1 ES 
6075 OeS446 012737 oOS2e376 oes4se MOV sRPOb, 2S sR TFL OF *RPO&’ MESSAGE 
£077 Ges4s4 10540! 1$: TYPE :TYPE THE MESSAGE WHICH FOLLOWS 
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£078 i 2s: MORO Bas ; MESSAGE ADDRESS 
£080 632 901350 3s: MOV ata i Keyes 
ees 3214 B1T8 sgl 02, ORI Trecei 
4 001350 MOV 4814, YLIMT see MIT TO 814 
£084 00h 338 000122 4S: B00 CF te¢SRs (RO) SLi F Ir Tome STARTED 
900106 MOV CYLIMT, MAXCYL (ROS MUM CYLINDER 
ait ig 38 CLR mI VL CRO) jcuha RINiAMn CYEINOER 
6088 000112 MOV TRKLMT, MAXTRK (ROS OAD MAX 
114 CLR MINTRKURO) ‘cute MINIMUM TRACK 

6030 344 000116 MOV SECLIT MAXSEC(ROS -: MAXIMUM SECTOR 
609 120 CLR M ctro) C E MIN OR 

Ss: ASL RY iSeTUe T WeeOS 

3756 MOV TABLE (RY), R3 : TER 

6094 1350 oo0002 MOV CYLIMT, 2(R3) sLOAD CYLI LIMI aad LAST CYLINDER 
6095 1350 000010 MOV CYLIMT;10(R3) iL CYLINDER Buy T FOR STARTING CYLINDER 
e098 ss Bre Ot«#GS tOROTE ves. eae: 
6098 026272 ISR Bs PARENT ‘GET THE DRIVE’S PARAMETERS 
6099 120 OO0010 6S: hove Mt C(RO),SSEC(RO) j INITIAL CTOR VALUE 
6100 114% oO00011 MOV MINTRK(RO),STRK(RO) ;IN Tie RACK VALUE 
pits 110 9000le ey titcrag” VL hk Ra CYLINDER VALUE 
6103 MOV (8p)3°R3 RESTORE R3 
6104 RTS + RETURN 
6108 ;ROUTINE TO GET THE DRIVE 1.0. FROM THE OPERATOR 
6108 Oes64e o10S546 GETID: MOV RS,-(SP) ; SAVE _RS 
bite oseesc ppiose COOONe BRE t«S sicPeD Tourven Conran, ° 
6111 pSepes ppeg3S 001262 1S: CLR EB ac ; CLEAR THE ” CONTROL C’ FLAG 
b1ie 025656 1044901 OS3069 TYPE S ENTORV ‘cen TER DRV By 
611 Gestbe 6 CLR +(SP) CLEAR setae 
pile 64 eet AY ss (RO), (SP) 1V a ON THE STACK 
cle Baers 1's RE iA fh 
6117 025671 000 “BYTE 5 1818 ZEROS 
6118 025672 104401 OO116S YPE , SCRLF 
6119 025676 i1044i1 RDLIN if ab THE ENTRY 
6120 700 012608 MOV (5P2+,RS cee THE ENTRY S00RESS 
cis Beeree Berar coats we fs ig UETE Geet” 
ble: 710 ieise? oo00s6 cnPB (85), 4”. iB extern ° 
eise Gserte 9 000224 BeGa fs) +, SDRVID(RO)* ; STORE THE 1.0. 
£126 025722 112560 godees MOVB (R5)+; $ORVI $1°RO) ;STORE THe 1.0. 
6127 0257. 11 ay O22 MOVE (RS5)+°S$ORVID+2(RO) ;STORE THE I-D. 
bles O25732 1125 000227 MOVB (R5)+,$ORVID+3(RO) ;STORE THE I.D. 
£129 0257 112560 000230 MOVB (R5)+°SORVID+4(RO) ;STORE THE 1.0. 
6130 02574 112560 000231 MOVB (R5)+'$ORVID+S(RO) ;STORE THE I.D. 
6131 0257 12605 2$: MOV (SP )+'RS ;RESTORE RS 
b13¢ 025750 000207 RTS PC : RETURN 
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;ROUTINE TO GET THE ADDRESSES OF ANY BAD SECTORS (UP TO A MAX OF 16) 
GETADR: 


a ee ns 
BOE) UR @ tes 
ooo04e ore igs : R orl CONTROL ? 
26. 14S: L LAG ie ’ * FLAG 
pes ige TBE sENTAOR : NER SSee 
MOVB (RO), (SP) uP tT fete VE NUMBER ON THE STACK 
TYPOS iT Te IVE NUMBER 
: vI aeen i pheks LEADING ZEROS 
Bos0%6 1S$: nov b32. R3 ~ at R OF neaehenT NS IN THE TABLE TO PRESET 
124 # P ¢ 
77777 1s ADL Fe Rute Set Cotati ING i ae 
, : DEC R3” ; MENT 1 TABLE 43. COUNT 
BNE 1 :BR IF NOT INTSHED WI WITH T 
ooo04e Tot 4 : UN R ie 
100 SUB #64. , RY Ser POI NTER TO GINNING OF TABLE 
aera MOV #16.;R3 OF  AODRESSES TABLE 
oe OU” cgpps_ Ri GET Bones ROR OPERATOR 
001262 TST CFLAG’ | CONTROL C> C’ ENTERED ? 
BNE 14§ 
es me Rarer epee 
1 125 oy + EARS age RETURN ON. Y ENTERED 
133 HILL nie heut ERED 
BE Hes fe Be Hi WITH a SARRIAGE RETURN 
3$ 7 
$ MOV Re, (R4) ie 
a HOV i3 (RY) iT Pee AOORESS Hereo 
ete :FIN SHE WITH fas ADDRESS, *CR’ ENTERED 
Ss: MOV (R4) CY AOOR Ss 
09323 oR TAL ne ire THE DIGITES)” 
12$ ie. ; CARRIAGE RETURN. ONLY ENTERED 
e TEE. Oph uehTERED 
7$ TERR NaTeD WITH A CARRIAGE RETURN 
es HTERRINAT D WITH A ate 
000002 6S: MOVB so R2, 3(RYD tTRACK ADDRESS 
oo0003 2s: ae Re, 3(R4) jGxIT fpoRESS eee ae raneee 
: BR 116 ‘FINISHED WITH THIS ADDRESS, *CR’ ENTERED 


Pb Be he he oe oe ee 


eis) 
PEO a 


Pb bs bo Be Be pe pee 


Fofororurorofufurorororufororore 
VER PORES ae Non curn 


SeeCRReERSSNS 


Ve 


foro 
t£ 
in 2 Wotue 
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3 Qs: MOVB ;T Ss 
1394 MOV se Re ieee ures he MI INPUT 
JSR K.B1G ; ace net T(S) 
1 ce Y ENTERED 
! if ra Ooo y NTE 
1 it i TH a CARRIAGE RETURN 
Y Hae ny aH A Gate 
ooo002 ge MOVB R2,2(R4) tS 
seeees : i ea 3EX I bee Hel eran BY PERIOD 
193 DEC FS : eeNTRies IE 
000004 800 a4.R4 ; NCR MENT THE TABLE POINTER 
177777 128: MOV 8-1, (RY) ic AR PRE NT Tear ENTRY 
127277 oo0002 MOV #-1,e(R4) :C NT TABLE ENTRY 
76 TYPE NT i AVAL ION NTRY’ 
hens BR eS :TRY AGAIN 
¥ MOV (SP)+,R4 ;;POP STACK INTO RY 
MOV (SP)+.R3 POP TACK NTO R3 
MOV (5P)4°R ::POP STACK INTO R 
MOV (SP)+'Ri ::POP STACK INTO RI 
RTS PC : RETURN 
: PARAMETER ENTRY ROUTINE 
; MOV BADR, R3 ;PARAMETER TABLE ADDRESS 
; JSR PC, PARENT :GET THE PARAMETERS 
346 aeaeat PARENT: Hoy R2, 5 (SP) Sti! the conn R TABLE ADDRESS 
012337 026310 1S: NOV (R3)4,38 Of BARARETER NAME 


ER 
p 3s: "Ph "i ee: pa ue NAME TEXT 
se oa aA eee re 


(R 
(RS), -( SP) 


od 





011546 MOV VALUE OF PARAMETER 
1O4405 TYP. TYPE, THE CURRENT VALUE OF THE PARAMETER 
104401 053576 T , SLASH 
104411 ROLIN 
012601 MOV (SP)+,R1 neon. RING ADDRESS 
103 001262 rst CFLAG ; “CONTROL if NTERED 
+ 27e32 JSR RS,CK.DIG Pastas Pee GIT(S) 
30 1$ URN ONLY ENTERED 
41 3s PERI LY, ENTERED 
364 6 ILLEGAL INPU 
360 # ;TERMINATED WITH A CARRIAGE RETURN 
364 6 ; TERMINATED WITH A *,” 
026376 7§ ;TERMINATED WITH A ™ 
010215 cs MOV Re, (RS? !MOVE NEW VALUE TO PARAMETER LOCATION 
000746 BR 1$ !GET MORE PARAMETERS 


ESRIDE Pil toeoee-7e bees | RCYEE SQ el ONG) CIBSDES Clorddiines 127 SEO O116 


4 6S: TYPE NT ; 
75 B8a508 SUB : esi THE TABLE POINTER 
4 7$: oR , (RS) | NE 
R ; 


061262 6S: L CFLAG 
ef ipite oS Ee" GONTROL. ELA eee 
41 ? 9s: ST (SP)+ Sante Sue STACK POINTER 
026414 000207 RTS PC 
; TXPEOUT ASSIGN/DEASSIGN ERROR nasenes 
: MOV SMESADR,ASNMSG ;ERROR MESSAGE ADDRESS 
: 38 PC, ASNERR 
. TURN 
026416 gwo 953007 ASNERR: TYPE » QUES ;QUESTION MARK 
pSease 2 a6 aa ee) a BG r5R TYPE QUT 


4 1 oo “a ss veEL T 
serine tongs ca Reb onthe 


EERE BLES 
ils 
a 


ASNMSG spe 0 i fre 
001165 * ¢f SCRLF 4 
RTS pc 
s DEASSIGN DRIVE IF A FATAL ERROR OCCURS 
; ise PC, DROP 
; TURN 
due DROP: CLR Ra ;CLEAR_RY FOR ORIVE NUMBER 
i4e4 033320 001462 nove grettine. ASNLSt -REROVE DRT FROM RESIGNED LIS 
606304 L ; IVE NUMBER INTO A TABLE INDEX 
4 001464 MOV we :PUT DRIVE IN DROP LIS 
1 1 OO011 2 TYPE 
4 { i besee TPE T *DROPPING DRIVE’ 
1 052673 TYPE :? Rive ry 
serene ASR ,prnun t ORTUL NUMBER 
1 10446 MOV R4,-(SP) 539A Ra FOR TYPEQUT 
026 i2 104403 TYPOS 3; vPELY th OFeCII 
14 : 2 :; TYPE 2 DIGIT(S) 
ose see owned 001165 epee OS ORLF sia = Leos 
02652 0207 RTS pC 
6 3 ;ROUTINE TO DEASSIGN DRIVE IF ERRORS BECOMES EXCESSIVE 
6300 026524 032777 000020 1S240& ABNRML: BIT #SWOY , ISWR ;SEE_IF SWITCH 4 SET 
630i Oe6&32 O01006 BNE 1§ :BR IF IT'S SET 


NOS 
EZR IDCO, PONS 7G MLTIOR LGC, MACY RCN RAL SUPPORT SuaRduTiNes ~~ 71° s€0 0117 
CMP MAXER,STOTAL(RO) ;CHECK TOTAL ERROR eVELUE 
if EXCEED MAX 


oe ae absine THe DRIVE 


;ROUTINE TO CHECK FOR END OF PASS AND END OF TEST 
EOP: ee T ND PASS DETERMINED BY SEEKS OR WORDS ” 
Pi ERI 









1 
1 AD+2(RO), ENDCONS2 ; HECK Ck NSH OF WORDS READ COUNT 
4 i mE reat 
14 AD( RO), ENDCON’ ck LSW ot SE mit 
1 a 2 oft jon 
i$ EOP: 1T#2(RO),E K+ ByeRT waEeK K COUNT 
1 che : na TTT 
a S1T(RO) a ag oe N 
i BLO x eK LS Sakis SUNT 
EOP2: TYPE RLF 
nov (RO), (sp)* NOP pace. bONT Toh Ps 
TYPOS sae sail mens COUNT 70 hi rg STACK AND TYPE IT 
BIT 8Sw04, Me 7? 
ene Sassccro), pascnt fe M AT END OF TEST 
6331 T »ENDTST 37 END OF TEST’ 
p33 MOV UNIT, -(SP) % UNIT FOR TYPEOUT 
6335 TYPOS $560 sre Th ASCII 
£339 Oseroe bo BYTE ; se CeAOING ZEROS 
6338 710 104401 001165 TYPE CRLF ‘i -LF 
6339 714 bocu3t BR 4 :DEASSIGN THE DRIVE 
6340 716 204401 052673 1S: TYPE NUM : ORI , 
6 I 7 13746 O0124%6 MOV UNIT, -(SP) 3 UNIT FOR Ty TYPEOUT 
6343 75 onan TyPOS iGO TYPE 7c! “Sc TAL A “ASCII 
732 0440 165 i¥PE SCRLF be : are AD No — 
e349 7 397 poise J PC, TYPEST THE DRIVE’S STATISTICS 
b248 742 1G346 MOV R3,-(SP) ion R3 
b 744 010446 nov RY, ai SP) ;SAVE_RY “ a ; 
ea Ose 756 ee704 900036 D BSOPERC, RY i ORAS a § ROO RDOR OF SECTIONS TO CLEAR 
i 0010 MOV #8. ,R3 ; NUMBER LOCNS TO BE CLEARED 
6353 : ( RROR C TERS NOT CLEARED) 
6354 i posos 2s: CLR (R4)+ CLE T . N 
cer Beeres Borate Re BeTE Gone 5 GgoATION coummTeR 
6357 O26766 012604 MOY (SP )+,R4 ‘BES TORE RY 


Ss 


o 


Pon 


Bee 
£ 


eee 


EEEeey, 
Sie 


Sotoceo 
eokaeky 


Ee 


: 


RR 
i 


Bet 


R 


ata 
NNNN 
pe pee 
stoitay 4 


o0000 


Bl 
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TOR 5 SE. GENERAL sippont cierduT ines SEG C1le 
MOV (SP)+,R : REST R 
000070 NC re F ae THE PASS COUNT 
: F ‘ 
033320 001462 BiCB ATABITCRY), eon.st fet fe DR Frit SHIRE td L st 
001464 v , DUNITCRY) PUT BLOCK ADDRESS INTO OROF L 
Eopx: ATS Pe” RETURN 
s ROUTINE TO GET THE REMAINDER OF THE RANDOM NUMBER 
; MOV NUMBER, RS ;DIVISOR INTO RS 
; J PC, GETREM 
: RETURN ;REMAINDER IS IN RS 
032464 GETREM: MOV ONUM, - (SP) :ST RANDOM NUMBER ON THE STACK FOR DIVIDE 
nee MOV INUM: -(SP) : PART 
705 MCR Bee (SED SO YVIDR THE RaMGON MOMBERS en 
4 ; 
mt me ae diner 
NOP een Be BuG NG HALT 
RTS PC 
NK ROUT TO DIVISION UTILITY SUBROUTINE 
= = te RG OrINe ALLOWS THE *SYSMAC’ DIVIDE ROUTINE 
: CALLING SEQUENCE TO BE D 
LINKDV: SAVREG Pie RO - RS 
oooc26 MOV (SP),RS *DIVISOR 
CLR gS ‘ OTe DIVISOR WORD 
Bo0032 HOY 3036) RS 1 OOFER DIVIDEND WORD 
sid cLR RO ; CLE as DTVISERD REGISTERS 
i ISR PC,M.OPID :GO TO THE DIVIDE ROUTINE 
niet MOV RI, 30S) Renal fe a’? STACK 
032 MOV R3; 32e(SP) QUOT DAF ON THE STACK 
RESREG tRESTORE RO - 
MOV (SP)+, (SP) ?MOVE RETURN UP THE STACK 
RTS PC 
; DIVISION UTIL TY. SUBROUT INE 
: RY-RS=D VISOR 
: RO-R1= EMATNDER OF TER DIVISION 
: Re-R3=GuOT EN AFTER R DIVISION 
: ENTER WITH JSR PC,M.OPIO 
4 A.DPID: MOV 840,-(SP) ;COUNTER FOR DIVISION CYCLES 
ae a MOV RY, -(SP) :HIGH ORDER ; 
pooo02 NEG Beeps ipa takai Oe SORE 
NEG asP :VERSION OF THE DIVISOR 


Cl 
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cSRybe Pil ieeDEC-7? 10:88 Ooo ee iB R DES Ziarddi thes SE 0119 
6414 027140 O0S666 O00002 SBC 2(SP) 
41 7144 P,R1 
41 71 ;PERFORM THE INITIAL SUBTRACTION 
641 ral oococe 2(SP) RO 
6418 is4 i BCS m.oPsd sIF CARRY THEN OVERFLOW HAS OCCURRED 
64 71 cLR -(SP) :THIS IS A LONGER LASTING CARRY BIT 
64 71 i M.OP4O: ROL R 
64e1 1 1 ROL R 
pice Ge7 16s Seat ROL Ri 
64 §53188 49 Rot P : TEST “CARRY. INDICATOR 
6425 027172 410 BEQ M.OP41 FEN 1¢ Y" THEN ADD ELSE SUBTRACT 
4 7174 6 R SP are uP AOR NEXT TIME 
4 7 po0002 D (SP),R1 
64 7 Cc 0 ;ADD -(DIVISOR) 
6429 027204 005516 ADC asp a :SET “CARRY” 
4 ooo004 D 4(5P) RO; <- 
4 1 m.DP42 
4 14 1 M.OP41: RS,R1 
6433 027216 005500 ROC RO OO +(DIVISOR> 
4 ApS agP ; :SET “CARRY” 
4 RO .<= 
eM ; aie oo ie 4 PE cT THe UPDATE INDICATOR 
3g BBrcbf yh, TIP beat rbRRETE LT 
euae GSE ad 2? go0o0e ied Sfen) bee" ino Genny” POSSIBLE — 
esi 40 pes M.OP4YO (° + OE REL IF FORE a DO 
644, ROR R3 ' 
6443 027244 103404 BcS M. DP44 
44 246 1 ADD S,Ri 
644s 7 5 
64 R4,RO 
Gey hy 4) CLC 
6448 027256 006103 M.OP44: ROL R3 
6449 7 ? 000010 ADD #10,SP ;ADJUST STACK BY 4 WORDS 
pyar 7264 CLV 
6451 RTS PC 
6452 027270 706 oo0006 M.OPSO: ADD #6, SP 
6453 027274 SEV 
6454 627276 000207 RTS PC 
pies 
p52 ROUT INE TO REPLACE LEADING ZEROS IN A NUMERIC STRING WITH SPACES 
pue3 : nov ig ed a sADDRESS OF NUMBER (IN ASCII) 
aa : WORD NN ;°N’ IS NUMBER OF DIGITS TO BE TYPED 
ai ett yeaa 000012 a HOV oT net ‘ SaxT MUM N F ITS TO BE TYPED 
J 
g 5 85736 ae SUB #0; .-(36) Bop ni biG PFE 95 Pest thoes 


6466 027310 016600 OO000E MOV 6(SP),RO MBER TO RO 
6467 027314 bs 000069 1$: CMPE #’ BP CRB) BY 7E€0 a %0 ASerI 8° 
11 000040 MOVB #40, (RO) ‘REPLACE. THE ZERO WITH A SPACE 


oc.P 


KOOP MKOOKMCOKKrMrD 
dt ch ana 
ba bn bs pee pe fs pe ee 
WONMUIE tule 


=8 


RERRESR PRED 


RUBBER URE = 
NNNNNNNNNN 


: 


RR 
: 


0274S6 
027464 
027466 
027472 
027476 
Ge7502 


Be0008 


oco060 
000006 027360 
027360 


oooco4 
ooo060 


027420 


SAREE | 
000200 177776 
0274S2 
03i034 


oz0000" 151454 


177776 
031034 
000002 


ee MACY11 30(1046) 15- = 


GENERAL SUPPOR 


es: STB 


3$: MOV 


4S: . WORD 


; TYPE NUMERICAL 
; CALL 


-77_ 11:03 PAGE 121 
SUBROUTINES 
RO ; INCREMENT THE BYT 
1 3 GO e LOOK RE LEADING ZEROS 
{R0) ce i ZER YTE TERMING ) 
RO Broke TRING POINTER 
#0, (RO) PU RO BACK IN 
6(SP),4$ ;PUT SS_IN LOCATION FOR TYPEOUT 
(SP)+'4§ ;BEG NN woageeentr ICANT DIGITS 
; TYPE THE 
te) : S OF NUMBER 
(SP)+,R0 sREST 
(SP)4' (SP) : MOVE TURN ADDRESS 
RS : RETURN 


ASCIZ STRING SUPRESS LEADING ZEROS 


: MOV BSNUMADR,-(SP)  ;FIRST ADDRESS OF ASCIZ STRING 
: JSR PC, SSUPRS 
SSUPRS: MOV RO, -(SP) ;SAVE RO 
MOV Gea) RO : PICK KUP THE POINTER 
1S: TSTB (RO) : TERMINATOR ? 
BEO 2s BR th YES 
CMPB #’0, (RO)+ 1S HIS. aN ASCII *O" ? 
BEQ 1$ iBR I 
2s: DEC RO BAC eer 
MOV RO, 3S TYBING 
DISPLY ‘G9 
3S: .WORD O ;BSCIZ i POINTER GOES HERE 
MOV (SP)+,RO. 0 
MOV (SP)+! (SP) RESTORE THE STACK 
RTS PC RETU 
;ROUTINE TO TYPE AT PRIORITY 4 
TYPRI4: MOV ePS,-(SP) ;SAVE T NT alt 
MOV $300’ asPs i BASNGE THE PRIORITY T0 
MOV (RS)4,1$ :MES SAGE ADOR 
JSR pe STYPE : TYPE THE MES cate 
18: . WORD :MESSAGE ADDRESS GOES HERE 
RTS RS RETURN 
3 ROUTINE TO TYPE ERRORS 
: DISPLY ;MUST DEFINED IN *TRAP’ TABLE 
: MESADR :ADDRESS OF MESSAGE 
; RETURN 
SDSPLY: git #81713, SUR gee ERROR TYPEOUT ” 
CLR aePs ET PRIORITY TO ZERO 
IMP $TYPE YPE THE MESSAGE 
1S: ADD #2, SP) LINCRERENT THE RETURN 


SEG 0120 


CZRJOCO 
C2RJ 


0e7556 


02700 


1S-D 


RPO4’S“6 MLT- 
DC.P11 


EC-7 


Gc 
10:58 


000060 
000067 


177770 


000060 
000071 


000060 


sR Tl 


MACYL1 30(1 
GE SEG 0121 
ase ROUTINE is USED TO CHECK IF AN 
s ASC I CHARACTER IS A DIGIT BETWEEN O AND 7. 
; MOV #ADR,R1 ofSGi1e HARAC TER 
; JSR RS,CK. + OPE i HARACTER 
: RETURNI CHARACTE PROT BE WEEN 0-7 
: TUR HARACTER i a n REY SA 
5 : Sune DIGI 
CK.OCT: CMPB (R1),#’O ‘Less 7 THAN ZERO? 
BLO 1s XE BR 
CMPB (R1), #7 ; GREATER THAN’ SEVEN? 
BHI 1S tYES - H 
Hove (Ri),Re :GET THE CHARACTER 
BIC atC7_Re i STRIP AWAY THE ASCII 
ST (RS)4 ADJUST FOR RETURN 
1$: RTS RS : RETURN 
;THIS ROUTINE IS USED TO CHECK_AN ASCII CHARACTER 
; AND DETERM INE IF IT IS A DIGIT BETWEEN O AND 9. 
: MOV Rl ;ADDRESS OF ASCII CHARACTER 
: JSR Re eK DEC j CHECK THE CHARACTER 
: RETURNI :NOT BETWEEN O AND 9 
; RETURNe2 ; BE THE NO AND 9 
: :Re = DIGIT 
CK.DEC: CMPB (R1),#°O ;LESS THAN ZERO? 
BLO 1$ : -- BRANCH 
CMPB (R1),#’9 i GREATER THAN NINE? 
BHI 1g BRENC H 
MOVB (R1),R2 ‘Geto THE CHARACTE 
BIC #’0,Re RIP AWAY THE ASCII 
TST (RSS+ BOTUST FOR RETURN 
1S: RTS RS : RETURN 
;THIS ROUTINE WILL CHECK AN ASCII CHARACTER TO 
: OE TERMINE WHAT IT IS. 
: MOV sADR,R1 ;ADDRESS OF ahecit CHARACTER 
: JSR RS, CK. CHR :CHECK CHARAC 
: RETURN ADRI : UNK Cc CTER 
: RETURN ADR2 ‘CARRIAGE RETURN * (R1)=ADR+1 
: TURN ADRS :COMMA * (R1)=ADR+1 
: RETURN ADRY :PERIOD * (R1)=ADR+1 
: RETURN ADRS :DIGIT BETWEEN O AND 7. 
: RETURN ADR6 ‘DIGIT BETWEEN 8 AND 
: :R2 = DIGIT * (R1)=ADR+1 
CK.CHR: TSTB (R1) ; “CARRIAGE RETURN"? 
EQ 3$ :YES -- BRAN 
CMPB (R1},#', ; “COMMA? 
BEG 2 ‘YES -- BRANCH 
CMPB (R1),#° : "PERIOD"? 
BEQ :YES -- BRANCH 
ISR RS, CK. DEC :“DIGIT"? 


SES Olzé 


F10 
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MACYIL 30 ci ORG) cUBPORT SUBROUTINES 


1$: 


6582 927604 


6583 Oe76 
6584 Oe76 
Ce 


SELENE 


= bb be be he he he he 


FPEESESSS ES 
—-OWONOU CWO 
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Pil 1S-DEC-77 10:58 NERAL SUPPOR OUTINES 


GE 
7g) gee ae: a 
5 48: 7 i tROVE-PO NTER TO NEXT CHARACTER 
5e50 B00z08 oe ae sRNGNN CHAAAC 
S_AN 


{CHARACTERS nb FORS A DECIMAL VALUE’ BINARY NUMBER IN R2. 


ORMS A DE 
MOV #ADR,R1 ;ADDRESS OF ASCIZ STRING 
2 ; MAX. Ment TUDE OF INPUT NUMBER 


; JSR RS. CK.DIG :CHECK DIGITS 
RETURN ADRI ACR ONLY ENTERED -— Re=0 
; RETURN ADR2 :"PERIOD™ ONLY ENTERED -- R2=0 
; RETURN ADR3 ; ILLEGAL CHARACTER OR INPUT TOO LARGE -- Re=” 
: TURN ADRY ;"¢ Re = NUMBER 
; RETURN ADRS !“COMMA™ -- Re = NUMBER 
: RETURN ADRE !"BERIOD" -- R2 = NUMBER 
027632 O10446 CK.DIG: MOV RY,-(SP) ; SAVE 
027634 010346 MOV R3;-(SP) :SAVE R3 
0276 010246 MOV Re: -(5P) :SAVE THE MAX. SIZE ON THE STACK 
76 005002 CLR Re :START WITH O 
7642 005003 €LR R 
7644 005004 CLR 4 
027646 004537 027560 ISR RS,CK.CHR ;CHECK ONE CHARACTER 
027652 027746 6$ :TLLEGAL CHARACTER 
be7654 ge7754 9g ‘CARRIAGE RETURN 
7656 7746 aE pale 
027660 027750 75 ,a0e 
7662 O27666 1§ :DIGIT 0-7 
027664 7666 1$ ;DIGIT 8-9 
7666 062705 O00004 1$: ADD #4, RS :STEP RETURN POINTER PAST “CR” & “PERIOD” RETURNS 
7672 006303 2s: ASL :INPUT NUMBER #2 
7674 010346 MOV R3,-(SP) :SAVE #2 
027676 006303 ASL R3 ey 
027700 006303 ASL R3 :*8 
027702 O62602 ADD (5P)+,R3 5 (#3)4( 4B) = #10 
7704 0203 ADD R2,R3 ; UPDATE THE rheuT NUMBER 
7706 4537 27560 JSR RS'CK.CHR :CHECK ONE CHARACTER 
027712 7752 St :TLLEGAL CHARACTER 
027714 027736 cs ‘CARRIAGE RETURN 
027716 7734 4g bes 
0277 2258 3$ _—— 
0277 027672 2g :DIGIT 0-7 
027724 027672 os :DIGIT 8-9 
0277. 105711 3g TSTB (R1) :DOES A “CR” FOLLOW THE “PERIOD” 
0277 001010 BNE eg :BR IF NOT 
00572 TST (R4)+ : INCREMENT THE RETURN 
0277 005724 4g TST (R4)+ : INCREMENT THE RETURN 
77 005724 S$ TST (R4)+ ‘ INCREMENT THE RETURN 
027740 Oe0316 CMP R3, (SP) : CHECK MAGNITUDE OF THE NUMBER 
027742 101004 BHI 93 BR Ir EN EN TER D. NUMBER TOO LARGE 
027744 o00402 BR as : BYPAS 
027746 005725 &$: TST (RS)+ ONCRERENT eM PAST INVALID RETURN 
027750 005725 7$: TST (RS )+ : INCREMENT RETURN 
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CZRJOC.P11 1S-DEC-77 10:58 GENERAL SUPPORT SUBROUTINES 

6643 ge775e 060405 9S: ADD Ry, RS ;SETUP RETURN POINTER 

6644 0277 010302 93: MOV js ENTERED VALUE 

664S 027756 005726 TST (aes ig MAX. SIZE OFF OF STACK 

Eeup Berres B1Stbs roy (aeiscRG RESTORE 

6648 027764 piFeee MOV (RS), RS : OBE URN ADDRESS 

p69 027766 O00205 RTS RS : RETURN 

66 T WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

bees HUNG TGhED bee asery NUMBER 

6654 Moy purges. ‘SP? ic THE NUMBER ON THE STACK 

beEE Be URN ESS OF THE IST ASCIZ CHAR IS ON THE STACK 

6658 'NOTE: THE PROGRAM REQUIRES tars FORM OF ’$SB2D’, NOT THE VERSION ON 

6659 ; THE SYSMAC LIBRARY, REV C AND LATER 

6661 027770 016637 OO00002 030014 $SB2D: MoV 2c SP) 1$ VE THE BINARY NUMBER “ 
62 027776 012746 030014 MOV #15,-(SP) :SET THE POINTER 

6663 030002 004737 032562 JSR PC, $0820 GALL THE DOUBLE LENGTH CONVERT 
4 Q30006 012666 900002 MOV (SP)+,2(SP) PGK THE POINTER 

6665 O3001le 000207 RT PC RETURN 

BEEE 030014 900000 oDD9000 1$: .WORD 0,0 

6668 ; THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

B663 ;UNSI SIGNED OCTAL ASCIZ NUMBER. 

667 MOV NUMBER, - -(SP) :PUT THE NUMBER ON THE STACK 

667 ; aoe an ’ 

6673 RETURN : ADDRESS OF THE 1ST ASCIZ CHAR IS ON THE STACK 

667 NOTE: THE PROGRAM REQUIRES THIS FORM OF ’'$SB20’, NOT THE VERSION ON 

6678 : THE SYSMAC LIBRARY, REV C AND LATER 

6678 030020 016637 oD00002 030044 $SB20: MoV 2(SP),1$ ;SAVE THE BINARY NUMBER 

6679 030026 012746 030044 MOV #1$,.-(SP) :SET THE POINTER 

6680 0 00 004737 032756 JSR PC, $pB20 ‘CALL THE DOUBLE LENGTH CONVERT 

6681 00 Ol2666 o0000e MOV CSP} CSP) :PICKUP THE POINTER 

6682 O320042 9000207 RTS PC RETURN 

bb83 030044 900000 oj0000 1S: .WORD 0,0 

6685 :KEYBOARD INTERRUPT INITIALIZATION ROUTINE 

E686 > CALL 

6687 : ISR PC, $TKINT 

b688 : RETURN 

£690 030050 012737 030100 O00060 S$TKINT: MOV wSTKSRV TKVEC ;SETUP VECTOR 

6691 O300SE 012737 O00240 d0006e2 MOV TKYEC jPRIORITY 79 ;* 

6692 030064 005777 iS510s6 TST osik ;CLEAR HE Bu 

£693 920070 12777 COO100 151046 MOV #B1T06,aSTKS SE INTE RUPT ENABLE 

B65 30076 000207 RTS PC RETURN 

bESE :KEYBORRD INTERRUPT SERVICE ROUTINE 

6£97 > CALL 


b£98 $ ENTER VIA INTERRUPT 


Cats 
OO 


fs 
R-On & 


oO 
w 


BOIL 


T10 


OR Ow WUT EEO 


MOOK KOKOMO TOrrroro 
PUTO PUTO & be bb a ee 


NSNNINNSINNSNINSINN SSNS SSI 


6724 
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ll 1S-DEC-77 10:58 GENERAL SUPPORT SUBROUTINES SEG O12¢ 
Sspips iise37 3 STKSRV: Tove” (SP)4,58 AEF Me CHARACTER 
: 1Be 435835 838538 000003 CMP go" 33" :*CONTROL C’ ? 

G30114 Ogi012 ee. * !BR IF NOT 
116 104401 001165 Y , SCRLF :CR-LF 
O301¢e Los 1 030528 TYPE SCNTLC aa you 
1 127 177777 001262 MOV b-1, CFLAG :SET THE *CONTROL_C’ FLAG 
63013 151004 cLR astks CLEAR HE TTY INTERRUPT 
ie 02 7a" 001140 OO0176 1S: CMP SWR, #SWREG + Oe TARE SWITCH REGISTER IN-USE ” 
0301 001 BNE 3$ :BR IF NOT 
930152 023727 039230 000007 CMP 5$, #7 :*CONTROL G’ ? 
0301 ats BNE 33 :BR IF NOT 
030162 194401 001165 TYPE , SCRLF > CR-LF 
030166 104401 032335 TYPE CNTLG 7 9G" 
030172 01374 177776 MOV PS. -(SP) !PUT THE STATUS WORD ON THE STACK 
03017 127 G30e12 MOV wet -(SP) : RETURN R 
0302 pier? 150 CLR a$sTks !CLEAR THE TTY INTERRUPT ENABLE 
030206 000137 031776 IMP SGTSUR :GET THE SWITCH REGISTER ENTRY 
030212 O12 000100 150724 2s: HOV #10 , aSTKS i ENABLE TTY KEYBOARD INTERRUPT 
030230 3$: TYPE :ECHO THE CHARACTER 
4: RTI : RETURN 
Ss: . WORD ;ENTERED CHARACTER 
; THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
: ROL IN ;; INPUT A STRING FROM THE TTY 
; RETURN HERE t ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
: ‘TERMINATOR WILL BE A BYTE OF ALL O°S 
SRDLIN: MOV ;SAVE R32 
6 CLR ?CLEAR THE RUBOUT KEY 
030510 1$: MOV ‘GET ADDRESS 
O2 030522 2s: CMP !BUFFER FULL? 
? BLOS ‘BR IF YES 
0 ROCHR :GO READ ONE CHARACTER FROM THE TTY 
3 MOVB :GET CHARACT 
3 000177 CMPB ‘IS ITAR 
2 BNE :BR IF NO 
6 TST :IS THIS THE FIRST RUBOUT? 
7 BNE :BR_IF NO 
7 900134 MOVB ! TYPE A BACK SLASH 
1 030506 TYPE 
& 177777 MOY ;SET THE RUBOUT KEY 
3 6S: DEC : BACKUP BY ONE 
? 030519 CMP :STACK EMPTY? 
103445 BLO :BR IF YES 
111337 030506 MOVB :SETUP_TO TYPEOUT THE DELETED CHAR. 
104401 030506 TYPE :GO TYPE 
000746 BR !GO READ ANOTHER CHAR. 
005716 cs TST !RUBOUT KEY SET? 
001406 BEQ : FON ; 
112727 000134 MOYB :TYPE A BACK SLASH 
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JOC .P11 1S-DEC-77 10:58 GENERAL SUPPORT SUBROUTINES SEG 0126 

6755 930340 401 O30506 TYPE 

6756 030 16 CLR tsp) ;CLEAR THE RUBOUT _K KEY 

pr 3: ¥3U ae o0002s 7$: bre. ‘ , (RB) Be Pong CTRL U? 

675 4 401 032330 € NTLU :TYPE A CONTROL “U” 

6760 7 3k 13° $60 START OVE 

eres eae e? 000003 10$: CMPB 83, (RB) 518 CHARACTER A CTRL C ? 

676. 2 77777 001262 SOY 8-1, CFLAG :SET CNTRL C FLAG 

bres Saoare leauoi O506z0 Type SEALE iEtwo It 

67) Rented 1ee713 000012 es: CMPB sf (R3) : CHARACTER A “LEY? 

676 10 1011 BNE 3 RANCH I 

6768 le 105013 CLR . ify LEAR TH E CHORACTER 

676 30414 104401 001:65 TYP & “LFE™ 

6770 O30420 104401 030510 T EAN Fue ENPUT STRING 

6771 g304e4 0007 06 BR 3 fol ICKUP , ANOTHER CHACTER 

677 Lows 1 001164 4S: YPE QUES 

6773 030432 70h BR is CLEAR THE BUFFER AND LOOP 

67 030434 i 1 930506 3S: MOVB (R3), .9 CHO THE CHARACTER 


g 
a 
2 
z 
5 
= 


30506 
000015 CMPB B15, (R3)+ ;CHECK FOR RETURN 
BNE 2 $1, 00F IF NOT RETURN 


a3 
ie 
85 
“ 
£W) 
. 
cia! 


6778 1 177777 AR RETURN (THE 15) 

67793 401 001166 TYPE auf ; TYPE A LINE FEED 

6780 726 118: TST tSP)+ CLEAN RUBOUT KEY FROM THE STACK 
6781 O30464 012603 MOV (SP)+,R3 RESTORE R 

67 Banos 011646 MOV (SP),-(SP) pAOSUST The es AND PUT BOORESS | ¥ THE 
6783 016666 o00004 9000002 MOV 4(SP3,2°SP) ST ASCII CHARACTER ON I 
6784 030476 Ole766 030510 Od00004 MOV aSTTYIN, 4(SP) 

67 030504 000002 RTI mt URN 

67 030506 000 93S: .BYT Oo : STORAGE FOR ASCII CHAR. TO TYPE 
6787 030507 000 .BYT 0 :T RMINATO! 

6788 030510 oo00le STTYIN: .8LKB 10. iR SERVE 10 BYTES FOR TTY INPUT 
2733 O30See 41536 vuoso1s OGO S$CNTLC: .ASCIZ /fC7<CR><LF> > CON TROL “C” 

b234 030530 . EVEN 

Pres 5 EERE EERE RAALAA RARER AAAS E EEE EE RAAA AERA ALAA RA SAAR A LARA ESS 
ele .SBTTL MACRO ROUTINES 

pean .SBTTL ERROR HANDLER ROUTINE 

67399 J PHUSUEPRERERSSOSSOSRS ESE SEENEP ESSERE SEE SS SENT SSRe ESSN STRAT. 
6800 i ETHIS ROUT iN ott oh een” THE ERROR FLAG AND THE ERROR COUNT, 
Pans Me pose aes s babti eR AND THE ADDRESS OF THE ERROR CALL 
PEs Ae Sie, OPT IONS OBR VIDED BY THIS ROUTINE ARE: 

£805 oui 3=1 TRHIBIT ERROR TYPEOUTS 

pete sai pes BELL ON ERROR 

pE08 $a ERROR WN ;;ERROR=EMT AND N=ERROR ITEM NUMBER 


6810 o30630 SERROR: 


a 


Dw 
on 8S 


sgetnncceesua Unum es 


rs) 
Pil 





RPO4/S/6 MLT 


1S-DEC- TR bes 758 





04407 
1 





oo0042 


001165 


001114 


001116 


004026 
030752 


MACY11 UCN) Ses ge es © is PRGE 128 


150370 


Oo0046 


ROUTI 


CKSWR ;,TE 4% TENTION Cea 
Vv R3, ATTN Save The “at T af TENTION REGISTER CONTENTS 
Rl; ORIVE ; 
Bie #513, ASR ; INH BIT PRI PRINTOUTS ? 
J PC, STINE ; "Tne 
7$: ance L es 5 OR F 
y STSTNM, ADISPLAY :: ufeet BF incin’t OND ERBOR FLAG 
pty : iT io! souR : HBELL 
Pee bb ; FRING LL 
1S: INC : COUNT NUMBER OF ERRORS 
Hoy c ), SERRPC ;;GET ADDRESS OF ERROR INSTRUCTION 
Move ast SITEMB ;;STRIP_AND SAVE THE ERROR ITEM CODE 
BIT 713, aSWR +3 SKIP TYPEOUT IF SET 
;;SKIP_TYPEOUTS 
ISR C, SERRTYP ::GO TO USER ERROR ROUTINE 
“a TYPE , SCRLF 
es: TST aSWR ; ;HALT ERROR 
BPL 35 ::SKIP IF CONTINUE 
HALT + :HALT ERROR! 
saa CKSWR :: TEST FOR CHANGE IN SOFT-SWR 
: CMP ae42, 2846 SARE WE IN ACT-11 AUTO MODE? 
BNE +4 :BRANCH IF NOT 
‘HALT ON ERROR IF ACT AUTO MODE 
RTI RETURN 


-SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
pFasocgnuucusscsssesesegsesecasasnesesoueqvosseresscgausnssscses 


I£THIS ROUT He "ITEM CONTROL BYTE” (STTEMB) TO DETERMINE WHICH 
; SERROR Ris 10 OE EPORTED. it TAINS, FROM THE “ERROR TABLE” (SERRTB), 
IATE INFORMATI CONCERNING THE ERROR. 

senate 

TYPE SCRLF ;;"CARRIAGE RETURN” 8 “LINE FEED” 

MOV RO, -(SP) $3 

CLR RO’ ::PICKUP THE ITEM INDEX 

Bee on F ITEM S ZERO, JUST 

Hite Pe The Be Co. F the pERROR 

MOV SERRPC, - (SP) SERRPC F 

TyPOC se 1168 TY pOOre BL ASCII(ALL DIGITS) 
1S: DEC RO ; | ADJUS weit NDEX SO THAT IT WILL 

ASL RO He OR THE ERROR TABLE 

ASL RO 

ASL RO 

ADD #SERRTB,RO ;;FORM TABLE POINTER 

MOV (RO}+,2$ ::PICKUP “ERROR MESSAGE” POINTER 

BEO 3$ ::SKIP TYPEOUT IF NO POINTER 


SEG 0127 





C RPO4/S/6 MLT- MACYI1 30< ) -DEC-77 JI: PAGE 129 

ESRIBES Pil is ee 3oF iboSe spcagne nestace~ FPeout AST INE SEG 0126 
6867 O4401 2s TYPE ;s TYPE My ek ene 
bac Onis | oe icra sy Pe teri 

z 2 70 3s: bee tRO)+,4S :3P , iE ba TATE 

72 SPE aS T rm) nee 
687 4§: . WORD +5208 & OER. yar a5 

74 001165 TYPE 1 SALE :3" ARAI LINE FE be 

75 of Ss: mov tRO),RO 33P Ck “DAT NAGLE” POIN eF 

38 2600 6S: MOV (5P)4+,RO He STORE AO 

28 158 i 001165 TYPE CRLF :3% I RETURN” & “LINE FEED” 
6 - RTS p ; RETURN 
eSet 2 MOV a(RO)+,-(SP) $3 + FOR TYPEOUT 
eBBe OhaGs TYPOC He eed -OCTAL ASCIT(ALL DIGITS) 
6883 710 TST (RO) ::1S THERE ANCTHER NUMBER? 
esa4 17 BEG es iiFyee™ a 
Secs 10s 1 031930 TYPE gs $5 TY (2) SPACES 
Peee 000 as: -ASCIZ 7 7 :;TWO(2) SPACES 
£363 031034 / EVEN 
£820 .SBTTL TYPE ROUTINE 
4 ;AROUTINE "To TYPE ASCIZ RESSAGE. MESSAGE MUST TERMINATE UITW AO BYT 
peas nial ROUTINE IE INSERT yer: NUMBER OF | NUL ne ae RULE ~EMBRRCT ERS "he ter Bren a FEED 
Peae jANOTE: 2: tS OONTA EhaRaCTERS CFALLER, CHARACTER. 
5837 anor 3: seit te EONTAINE The ture CHOBACTER fA keg 
6899 #CALL 
£300 #1) USING A TRAP PabyRuction 
6901 for TYPE ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
ed S ME SHOR 

-+# 

ESpe BE i 
£907 031034 105737 001157 $TYPE: TSTB STPFLG 3315 THER f TERMINAL? 
6908 531040 19000e BPL 1S i BR IF 
£3 fs Baits 900407 BR i LEAY i a ee 
egil 031046 010046 1S: MOV 25 -(SP) 
691 1 17600 oo0002 MOV aetsP),RO i} SAVE Se ESSE Ot OF ASCl Heep 
£913 : 4 Tieo4p 2g: Hove (RO)+,*(SP) : BUSH _ CHARA ER TO. TYPED ONTO STACK 
£91 i Oos7ee Be (5P)+ HG ERMINATOR POP Te ere NeHe STACK 
691 1 1 60S: MOV (5P)+,RO S 
63! i 066716 occoo2 38: ADD #2, (SP) $BOTUST RETURN PC 
63 4 ire jee? ie 000011 4g: cure BHT, (SP) tI BRANCH IF <HT> 
6921 031100 122716 o00200 CMPB SCRLF, (SP) ;;BRANCH IF NOT <CRLF> 
69322 021104 GOlo06 BNE S$ 


;GO 
$509 por COUNT AS A COUNT 
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CZRIOC. P11 1S-DEC-77 10:58 TYPE ROUTINE SEG 0129 
6923 11 ? TST (SP)+ ;POP £OR> «LF» EQUIV 

a i ie, be a e‘ato EP 

SS ade Af y poo arg 6 

: Bis fries if ee: 2are tele’ tse + Hyg Fok Pec 

3 i O311 i 001154 Roy emesrrie PELE Lone Ro NEEDED 

Fad BHM opp como esse : Bist EEE Weal or src 

6935 1146 004737 031204 JSR PC STYPEC 33 YPE A 

6 1152 

ue li 

69 

6 

6 


SINN 


sslsTY ADING 
bigs SUPBRE S LEAD Re SROs 
TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i #§1¥POs OR $TYFOC 
” Mov NUM, -(SP) ;;NUMBER TO BE TYPED 


oe et ee ee es es ee we 


eer TTT TTT TT 


Fee pe 


EXE SBHES aberis fapese EC yo 
p43 0311 32 000007 031250 iTB 87, SCHARCNT ae HIF NO NOT AT 
cee Bails BBlaee fey BS ete oer stace 
e347 031308 1 353 147740 STYPEC: FerB T . eer, GNTIL CHR INTER IS READY 
£33 RISB LNS5C2 BBBRTE. bad SEG OUEBT® AR GREER REcRURRE MB" 
pas Bigs 031250 RG CNT YE9> FESS CLEAR NOHARACTER COUNT 
A 000012 on00002 1S: MPB siveex RTT nee Tee A LINE FEED? 

fee Biss scuencnt Bao fr ECT BE sc 
£958 031252 000207 STYPEX: RTS PC 
52 .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
636. ; « SESHRKESSASSKAASSASAEHSESAAASHKRKAAARRRAARAREKAAKARAAAAHLRARARABRER 
e268 ioe $ ROUTIN 15 USED TO CHANGE 16-BIT BINARY NUMBER TO A 6-DIGIT 
E366 i aS TYPOS---EN eR HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TC TYPE 
bars Wlog MNCS) FPR Nr BeatreS 

370 .BYT N :N=I TO & FOR NUMBER OF DIGITS TO TYPE 
3 : ‘BYTE MM 4 1 
é 
6 
€ 

t 

c 


W000 000.0 
NIN me ae 
NNW £ 


N10 
STRIDE TO Fete bese | ACY BiARRY ro Scan (ascii) ano TYPE s€0 0130 


6979 :# TYPON ;;CALL FOR TYPEOUT 
eae j #STYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

; * Mov NUM, -(SP) - R TO BE TYPED 
e + TYPOC hiss + FCALL FOR TYPEOUT 

T : (SP),-(SP) ;;PICKUP THE MODE 
e -" nove ¢ ), $3 F 4 rey 
: MO (SP)+ 1 33 DIGIT TYPE 

ADD : vf ) tf T RET ss 

6 
339 YPOC: 3;SET T RO FI TCH 
e ” 2 nove ae, ; +1 3 roe ice) bE Ete 
6 STYPON: MO * SOCN :3SET T ERATION COUNT 
6994 MOV R3,-(SP) ;; SAVE R 
base MOV. Re =C PD 1 BEVE Re 
paae MOVB +1,R4 3;GET the NUMBER OF DIGITS TO TYPE 
Pgag neo 86, SUBTRAC f T FOR MAX. ALLOWED 


ieev nie § RO FI L SWITCH 
HELEOR, THE OUTPUT, MORO 


ie oRM THIS DIGIT 









DBO 
rf 


RBSRERBESE 


1S: 
es: 


as 


3 

ag 

BUR? 
s 


SepeuaEReES 


Os me ae ee te ae ae ae ee ae ee a a ae ee ae ee eae ee ae Be Bee ae ae an = Be ae ae ae ee ae ee be ee 
. 
wa 
Ww 


AOD 


SRA INaS CRO RARREBN IN eRe ON EES 





3S: R3 ;;GET LSB THIS DIGIT 

7818 105337 031500 DEC OMODE ii TY “TS. OF! ? 
2 1 4 2 177770 BIC #177770,R3 ;7GET RID. OF JUNK 
able 413 af RY SUPPRESS HIS 0? 
s0l? O3141e QOSco4 ws: ine EBON? T seroy PPRESS ANYMORE 0°S 
7 i 428 : I #’0,R3 i ;MAKE THIS DIGIT ascii 
701 4 ? Ss: Bie #’ (RB MAK I IF NOT ALREADY 
? *k 450 rete 1474 MOV R3,8S is SAVE FOR TYPING . 
70e 03 434 1 OL 1474 TY at :;G0 THIS DIGI 
7022 031440 33 7$: DEC $OCNT ::COUNT BY 
poss Baldue pasacs Br SfsééS tiBR TF edie: 

Ld se 
02s : » INSURE T GIT N° T @ BLANK 
5 De 44 Ene Be +4 06 The LAST bit? 
7s, ORINEN os: Rov CEbvees =F RESTORE 

; Vv (SP)+'R3 SS REST R 
re : ‘ i oo0002 occooc4 Rov e(sp):4isP) + + BEF one BF ack FOR RETURNING 

e o 
? 03147 RTI pie riewe 

: .BYT !:STORAGE FOR ASCII DIGIT 

oB3a 03 a3e 5 = 7 YTE 5 :: TERMINATOR FOR TYPE ROUTINE 


SRERR 


UT 


= 
tw 


REPRESS REO oes 


: 


PRBaaNe 


ror 


BOGUT OVID O OOOO IO DOO BOO WO DIEU OID Este 


Bll 
Fee oB TAPP BO, MACYIE SGI NRRe rolBchac casclii ano TYPE SEG 0131 


a) 


009 SOCNT: BE 8 j QCTAL DIGIT ¢ COUNTER 
o00859 somone: :; NUMBER OF Brats TO TYPE 


-SB8TTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
See Lb bebelebehehbahedah-d-tebtebsbekidel 


SSR eee Lom 


ED WIT 


;# : 
ti MOV NUM, ~(SP) $:PUT THE INARY NUMBER ON THE STACK 
® TYPDS +360 TO ROUT INE 
STYPDS: 
010046 MOV RO, - (SP) 3 RO ON STACK 
010146 MOV Ri, -( SP) :: Rl ON STACK 
O1Ge46 MOV 7 (8P) 33 oN TACK 
10346 MOV R3,-(5P) ; ; PUSH TACK 
ipPue 09 HOV S3h200,-«sP) Cai TCH AND SIGN 
paogeo MOV set RS ::GET rs ae NUMBER 
1 BPL pt | ii F 
NEG 5 | MAIC aay RURBER, P Pos. 
ooness 9000001 MOVE #’-,1(SP) 3 5 MAK G. 
18: CLR $3 ants t 5. IROEX 
1 921716 MOV r) K.R3 TUP 
3 oo0040 MGVB #’ ,(R3)+ :;SET peas 7 Ghee TER TO A BLANK 
2s CLR 35 srl ag HE BCD HUMBE 
16001 031706 MOV SOTBL (RO), RI cen c ANT 
1 33: Bue ‘ 8 T O DIGIT 
;;8R_IF 
Oe INC Re ;; INCRE HE BCD DIGIT BY 1 
105 oe 4§ ad Ri RS ;;ADD K THE CONSTANT 
TS :;CHECK IF BCD DIGIT=0 
198716 STB) (SP) CPHL. BOING LEADING 0°S? 
{Bovoe BMI biBR TF Yes 
106316 S$ ASLB (SP) >;MSD? 
i ebe3 poong1 177777 Ave f¢SP),-1(R3)  }:VES-<SET THE SIGN 
¢ = , +3 <p 
0637 Bobo 6S: BIS 8’0,R2 MRK the BCb DIGIT ASCII 
7 000040 7$: BIS #’ |Re ::MAKE IT A SPACE IF NOT ALREADY A DIGIT 
MOVE =e {R3)+ ; ;PUT THIS CHARACTER IN THE OUTPUT BUFFER 
TST (RO)+ 3;JUST INCREMENTING 
oc0016 CMP RO, #10 ::CHECK THE TABLE INOEX 
746 BLT 2g 3360 09 THE NEXT DIGIT 
BGT eg ::GO TO EXIT 
10502 MOV RS,Re ::GET THE LSD 
764 eR 6S +;GO CHANGE TO ASCII 
108726 gs: iste (SP + $s We THE LSO THE FIRST NON-ZERO? 


1 BP 
116663 177777 177776 MOVE  -i(SP),-2(R3) :;YES--SET THE SIGN FOR TYPING 


Ci 
1:03 8 


RPOY - Y (104 S-DEC-77 : 1 
cSRIDe P1 | ‘+7 Teepe e 7) 1b Se es sOSAVERT BINARY TO vee {hac “ink ROUT INE SEG 5132 
oso : LRB = (R33) ;;SET THE TERMINATOR 
7091 031654 40 13 ag ny og Hed cing es 
1 i v (5P)4'R + NTO R 
; 1 1 MOV (SP)+,Re ; POP TACK NTO Re 
? ibes 18600 MOV (3p) Ro He Tack IN NTO R 
Y 
7098 B3ig7y 01 oot Bhoos ooocc4 nov @(SP),4(SP) + i NOMuST THES STACK 
71 i sSBoS RT : maha TO USER 
71 17 SOTBL: 19000. 
ries BRITS BBsray tg 
) 16. 
oibe B8iFid 888846 soeux: ‘Bikw 4 
5108 .SBTTL TTY INPUT ROUTINE 
7108 +s SESSSSSESSSSRSSRLEFREKAAAASRAKESSHRERSRLRRAAARRAARAARRRSRRRAREE 
711i "ENABL LSB 
3} 1g tAEOFTMARE SWITCH REGISTER CHANGE ROUTINE, 8 
$i} R, AND WILL 
oit2 SKS een TEST, FOR chant Ins COP TIRE SWITCH REGISTER TRAP CALL 
7116 y 
giiz 031726 2737 000176 001140 $cK #SHREG, sun Bed THE SOFT-SHR SELECTED? 
vibe Bilmie tBaory 147208 aa LAP No MBSR wart anouro 
7l21 931744 117746 147176 nove O$1KB,~(SP) save t - cnn eit 
5iss 831329 R357 46 baa8ee ed a, (SP5+ TNE Fe ONT ROL. 
oige Bites 69910. ee TOB, #1 118, NG Usa AUTO-MOCE? 
7158 B3is6 boing, Ott" coo0n: Seo say : : BRANCH Rn vin 
71 
TYPE  SCNTLG ;;ECHO THE CONTROL-G (tG) 
7138 pa 1e7e ipo p353as SGTSWR: TYPE MSWR : TYPE RENT ¢ CONTENTS | 
7130 p33778 137 baGi7e MOV aan G,-(SP) cuRe = 
7131 104402 TYPOC YPE--OCTAL ASCII(ALL DIGITS 
7} i Ol 032353 TYPE , SMNEW $160 re NEW SWR 
5138 14 bocone 19S: cLR =(SP) : CLEAR coun 
7134 03201 BOS046 = a 
513 03508 a. 7 a hea + CERRO TRY AGAIN 
7137 
77 47114 MOVE aSTKB,-(SP) ;PICK UP CHAR 
7138 635056 reat eee BIC #tC17?, (SP) MAKE IT 7-BIT ASCII 
7141 
5i4s 036 O21627 oD0025 9S: CMP (SP), #25 ;;IS_ IT A CONTROL-U? 
atte 635845 ster 032330 ha te NTLU eS Foil NO TROL- -U itu) 
7146 032050 O&2706 d00006 20s: ADD be, SP t TERORE PREVIOUS INPUT 
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CZRIOC.P11 15-DEC-77 10:58 TTY INPUT ROUTINE 

ate 032054 000757 BR 198 ;;LET’S TRY IT AGAIN 

714 

gis 1627 oOO00015 10$: CMP i? 88s 3;1S rf cm 

cies a] 000004 it 4(SP) >tYES is 3, HE FIRST CHAR? 

7154 O2 147040 ov (SP), aSWR i SiveNed 

71 1 11$: 800. #6, SP 33 Le us Stack 

71 1 116 148: T ScRLF >;ECHO <CR> AND <LF> 

7186 ig 001135 oo00001 cHPS j NTAG, #1 : ;RE-E ‘ ry KBD INTERRUPTS” 

2158 : O00100 147016 - nov #100, a$TKS He “ENABLE TTY KBD INTERRUPTS 

7161 136 1204 16§: JSR PC ,STYPEC ;;ECHO CHAR 

sige Oaci34 Geles? 00060 CMP (SP), #60 ;;CHAR < 0? 

7163 149 480 BLT 18S i }BRANCH F YES 

7164 14 1 000067 (SP), #67 ::CHAR > 7? 

siee fasts Sosols ee OP ec Be. 

sie **e - 

51e8 635125 BaesEE H00002 ts] Hes) as AIS THE Efkcr CHAR 

7168 032160 001403 BEQ 178 :: BRANCH IF YES 

7169 O3el62 16 ASL (SP) ::NO, SHIFT PRESENT 

71 164 16 A (SP) He chen ° R MAKE 

7171 1 16 ASL (SP) He OOM WW ONE. 

7172 O3e1 66 oo0002 17S: INC 2(SP) ::KEEP COUNT OF CHAR 

7173 032174 16 177776 BIS =2(SP), (SP) ::SET IN NEW C 

ote Bassne fo401 01164 18s PrPE 4 SQUES § OE ee One 

2i7e O3ee06 000720 ose. Pee 8 j; SIMULATE CONTROL -U 

5138 ) 

7180 33 SRALELRAASKSRKAAAAASSAAALAAAAKARAKAULRASAASRRRSRRAKRARKRKERARRKRAALE 

7181 i ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 

7183 ie ” ROCHR ;; INPUT A SINGLE CHARACTER FROM THE TTY 

7184 ti RETURN HERE : CHARACTER IS ON THE STACK 

718s 1 :;WITH PARITY BIT STRIPPED OFF 

7187 ‘ 

7188 O32210 O11646 SRDCHR: MOV (SP),-(SP) ;;PUSH DOWN THE PC 

7189 03212 0166 000004 900002 MOV 4(SP5,2°S5P) ::SAQ ic PS 

7190 2220 105777 146720 1S: TSTB asTtKS :;WAIT FOR 

213i O3eee4 1 375 BPL 1$ ::Q CHARACTER 

7i acece hi 66 146714 o00004 MOVB a$TKB,4(SP) :READ THE TT 

7193 O3e2 2766 177600 O00004 BIC #1C<177>,4(SP)  3;GET RID OF JUNK IF ANY 

713 3536 G26be7 000004 000023 CNP 4(SP), 2 +318 rn CONTROL -S? 

1% fee Ties tases as: le Bir iB if Perec 

7198 O 528 bizeae 146662 MOVB a$TKB,-(SP) 5 3GET CHARACTER 

7199 0 e716 177690 BIC #tC17?, (SP) 3: KE IT 7-BIT ASCII 

Fee Baeera Borsce COCOes ge igre, tel til? Nor DiscaRo IT 

720e 032276 0007E0 BR 1$ ::YES, RESUME 


BE 


rat 


SaBNRRES 


W-OWONOU Swe 


t 
NN NNN SINS SNS NS ae 
TUrunutue- &- = be 


furururururufurururorurorurufroru 


0, RPOY/S’6 MLT-OR LGC 


Pil 


Bee Bese 


rorurore 


atatatataentnt tay 
EAS 
5 


040 
03644 
032364 
32364 010046 
p35358 Ol 
032372 Bis is)6) 
Bics73 13701 
012702 
032406 006300 
Baeiie 006101 
03241 oo0Sene 
Osedig 083700 
0. Sol 
O3e4%e4 663761 
30 062700 
34 oossodl 
pasias 062701 
O3e4%4 010837 
pass Bibles 
O0324S4 Olesbodl 
O032e4S6 012600 
032460 000207 
O32e46e 176543 
O32464 1234SE 


1S-DEC-77 10:58 


ooo004 
ooo004 
000040 


806507 
0000 


047040 
000040 


032464 
O3e462 
177771 


032464 
O3e46e 
001057 
047401 
032464 
032462 


000140 
000175 


O20 lee 
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tt INPUT ROUTINE 
3S: CMP 4(SP), #140 ;;I1S IT UPPER CASE? 
aus 4 ss ein IF YES 
MP 4(SP),#17S 3;18 IT A AL CHAR? 
BGr ;; BRANCH I S 
IC #40,4(SP) ::MAKE IT R CASE 
UG RTI ;;GO BACK TO USER 
SCNTL : .ASCIZ /tU/<15><12 ::CONTROL ” 
CNTLG: .ASCIZ 71G67<15>< 1a :;CONTROL “G” 
$M ASCIZ <15><12>/SWR = / 
SMNEW: .ASCIZ 7 NEW = 7 
.SBTTL RANDOM NUMBER GENERATOR ROUTINE 
NNN eect i bd bdsbebahdhbahehbdahebdedab-bbeh-bbelehehehhebdeieshedehebehebebel 
: THIS ROUTINE Is A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR 
i #WITH A RAN O TO 2(+33)-1. 
s Ls 
:# ISR PC, SRAND ;;CALL_THE ROUTINE 
i RETURN ::RETURN HERE THE RANDOM 
;* ;;NUMBER WILL BE IN 
eS ; ; SHINUM, SLONUM 
SRAND: 
MOV RO,-(SP) ;;PUSH RO ON STACK 
MOV Ri; -(5P) +:PUSH R1 ON STACK 
MOV Re’ -(SP) i s PUSH Re ON STACK 
MOV $LONUM, RO ::SET RO WITH LOW 
MOV SHINUM) Ri ii BET Rl WITH HIGH 
MOV #-7,Re 33ST on FT COUNT 
1$: ASL RO i; SHIF LEFT AND 
ROL Ri : ROTATE CARRY INTO R1 AND 
INC Re ;;CHECK FOR 
BNE 1 :: CONTINUE SHIFT LOOP 
ADD $_ONUM, RO 5 3800 R TO MAKE X 129 
ADC ::PROPOGATE CARRY 
ado $HINUM, RI ::QDD R TO MAKE X 129 
ADD #1057,R0 $3 800 LOW CONSTANT 
ADC ;;PROPOGATE CARRY 
ADD #47401,R1 ::@DD HIGH CONSTANT 
MOV RO, SLONUM >:SAVE RO 
MOV 1, SHINUM ;;SAVE R1 
MOV (5P)+,R2 ::POP STACK INTO Re 
MOV (5P)+;R1 ::POP STACK INTO RI 
MOV (5P)+° ::POP STACK INTO RO 
RTS PC : } RETURN 
SHINUM: .WORD 176543 
SLONUM: .WORD 123456 


.SBTTL SAVE AND RESTORE RO-RS ROUTINES 


ss EERE EERE RRRRREREAEAAKLE LEAH AAAA ALARA ALARA RALSARAARERLALEFRAEE 


;#SAVE RO-RS 


CALL: 
sé SAVREG 


Fil 


CZRIDCO, RPOY-S’6 MLT- Gc MACYI11 30( 1046) -DEC-77 :03 PAGE 136 
¢ ae oP Teepe SOF ESE. see END bec ORE RO-RS ROUTINES SEG D125 
? 53 5 #UPON RETURN FROM S$SAVREG THE STACK WILL LOOK LIKE: 
é ; 
7261 coven ooten 
‘ :* sae + 
75e5 ;® +4---RS 
7264 3% +6---RY 
7265 :# +8---R 
7266 :#4+10---R 
7267 $#+12---R1 
7268 3 #+14---RO 
7269 
7270 66 SSAVREG: 
7e71 9 66 010046 MOV RO,-(SP) ;;PUSH RO ON STACK 
ers Gaeare Bion roy ictge} bua Rb SN Tack 
7274 74 61 BSue MOV RS’ - (ep) tt Ben RS ON eT Ack 
7275 76 O10446 MOV RY, -( SP) +;PUSH RY ON STACK 
7e O1 0546 MOV -(SP) :; PUSH RS ON STACK 
72 16646 oo000z2 MOV 22tsp),-(SP) +; SAVE OF MAIN FLOW 
72 032508 O16646 O0002e MOV 22(5P);-(5P) :;SAVE PC OF MAIN FLOW 
72 O32eSi2 016646 O00022 MOV 22(5P)'-(5P) ::SAVE PS OF CALL 
7280 032516 OL 6646 o00022 MOV 22(5P)'-(5P) ::SAVE PC OF CALL 
rep) 032522 000002 RTI 
7283 ; #RESTORE RO-RS 
7284 ;#CALL: 
7285 : RESREG 
7286 032524 SRESREG: 
7287 032524 012666 oo00022 MOV (SP)+,22¢SP) : RESTORE PC OF CALL 
7288 032530 Ole666 O0000e MOV (SP )+,22(SP) i ;RES TORE Pe OF CALL | 
7289 032534 O12666 o0000e2 MOV (5P)4; 22( SP) : RESTORE PC OF MAIN FLOW 
7290 032540 O1e666 0000 MOV (SP )+,ee(SP) ; RESTORE PS OF MAIN FLOW 
7291 O2es4 12605 MOV (5P)+°RS :3P aT Aack INTO RS 
7292 46 O12604 MOV (5P)+;R4 ::POP STACK INTO RY 
7293 032550 012603 MOV (SP)+'R3 ::POP STACK INTO R3 
7294 O3255¢ Oi e606 MOV (SP)+) Re ::POP STACK INTO Re 
7295 2554 012601 MOV (5P)+'R1 >:POP STACK INTO R1 
? 032556 012600 MOV (SP)+/RO ::POP STACK INTO RO 
7e37 032560 900002 RTI 
7698 _SBTTL DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE 
7301 a3 HKSAKRSAASSSERKSRARAKSHKAAASAAAAARARSAAAAARAARRAALALAERAAAAERA ERE RE 
730 :&THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO _AN UNSIGNED 
730 :#DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
ris teat 
;* 
730 :# MOV #PNTR,- (SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 
730 :# JSR PC, a#$0B2D 
73202 1% RETURN :;THE FIRST ADDRESS OF ASCIZ 
7309 3;I1S ON THE STACK 
53iy 
7zle O3eS6e 104412 $DB2D: SAVREG ;;SAVE REGISTERS 
7313 032564 G1 ge0e oooode MOV 2(SP),R2 ::PICKUP THE DATA POINTER 
7314 032€70 012706 032742 MOY a$DECYL,RO ::GET ADDRESS OF “S$OECVL” STRING 


Gll 
Beet” aga 2 we MACY ET SBSUBCE LENGTH BINARY +0 BECTRAL ASCII CONVERT ROUTINE SEG 013 


CZRI 
ESRI 

7315 7 O1 MOV RO,2(SP) ;;PUT ADDRESS OF ASCIZ STRING ON STACK 

7 18 1 MOV (R2)+,R1 ;;PICKUP THE BINARY NUMBER 

. i 155 12 032660 MOV Hr *ane TO DO 10 CONVERSIONS 

? 1 1 O3e67s 2 MOV r Neus RY + RE RESS OF TEN POWER 

? MOV aS TNPWRS2, RS 

2361 1$: CLR R ;; CLEAR PARTIAL 

? 161401 2s: (RY), RI :: SUBTRACT TEN POWER 

7323 Sec Re 

7 1 Sug (RS),R2 

7328 BL 3$ ;;6R e TEN POWER TO LARGE 

7326 03 INC R3 ::ADD 1 TO PARTIAL 

7327 72 BR oi ;; LOOP 

? 062401 3s: ADD (R4)+,RI ::RESTORE SUBTRACTED VALUE 

73e9 O32642 o0SS0e ADC Re 

7330 032644 062402 ADD (R4)+,R2 

733 CMP (RS)+' (RS)+ ; ;MOVE OVE 10 NEXT TEN POWER 

? 000060 BIS #°O.R3 : | CHANGE TIAL TO ASCII 

733 a: MOVE 3, tRO)+ ;; SAVE IT 

7334 0326 327 DEC (PE>4 :: D0: 

7335 4$: . Wi ia} 

7336 1357 BNE is ;BR IF NO 

5335 5. } Gece G a i} TERMINGT REGISTERS 

5339 boosa? Are” Pc + RES RN 

7340 03267 45000 STNPWR: 145000 iil. obo9 

rae Bstre teases Tepito 1.0806 

5345 G3e800 ABETE See 

7344 032702 13206 113200 ;1.0£07 

534k Ose7be Bution 641100 1.0€06 

7347 032710 000017 17 P 

7348 le 193240 103240 371. 0E05 

7349 714 rep 1 

7350 032716 Ge34e0 23420 ;;1.0E04 

7251 032720 o00000 0 

7352 O3e7ee 001750 1750 ;;1.0£03 

7353 36704 000000 0 

7354 726 000144 144 1.0€02 

7355 032730 o00000 0 

7356 732 o00012 l2 ;;1.0£01 

rae Geers Beet |-0€00 

7359 032740 900000 0 F 

7360 032742 000014 $DECVL: .BLKB 12. ;;RESERVE STORAGE FOR ASCIZ STRING 

¢ 

73be .SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 

7364 SKAEAKRALARARAASALALAAAARALARAKALRAHALKKAKSKKHKAARHRRAARAAERALARARAEE 

7365 I ETHIS ROUTINE WILL CONVERT a 32-BIT UNSIGNED BINARY NUMBER TO AN 

7366 i #UNSTGNED OC AL ASCIZ NUMBER 

7368 . MOV gente -(SP) ;;POINTER T9 LOW WORD OF BINARY NUMBER 

7363 :# ISR as$oBe0 ;:CALL THE R j aig 

7370 € RE TURN :: THE ADDRESS UF THE FIRST ASCIZ CHAR. IS ON THE STACK 


CoRJOCO, RPOY-S-6 MLT-DR LGC MACYi1 30(104%6) 1S-DEC-77 11:03 PAGE 138 
C2RIOC.Pil 1S-DEC-77 10:58 DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 


$0820: powes 


90 2(SP),R1 H : NTE TO LOW WORD 
Baaa76 Vv Gsbctt t13. .RS Hi ie PornTee ABLE 
000014 MOV #i2.,R4 LEVEN CHARACT AE 
177770 MOV atc? R3 $s Pack 
MOV (R1)4,RO S;LOWER WORD 
MOV (R1)+,R1 ; ;HIGH 
CLR Re ;; TERMI 
iS: MOVB RB. = (RS) :: PUT CHAR TER_IN DATA TABLE 
MOV RO,Re ;;GET THIS DIGIT 
BES es ti 6R IF NOT THE LAST 
Q 33 ++ BR FI 15 Fue Past 
ane INC RS neath ieee I 11s SADIUST POINTER Fo FOR FIRST 
SREG : 35 &} ALL Rects STERS 
RT P BET TO rheek 
2$: AS R :!POSITION THE MASK FOR THE Last DIGIT 
3$: ROR Rl !:POSITION THE BINARY NUMBER 
ROR RO 3: THE NEXT OCTAL NDIert 
ROR R 
ROR R 
ROR Ri 
ROR RO 
BIC R3, Re ; MASK QUT ALL JUNK 
oo00ceo ADD #’°O,R2 HIS CHAR. ASCII 
“ BR 1$ £3 a6e UT IT IN THE DATA TABLE 
SOCTVL: .BLKB 14. ::RESERVE DATA TABLE 


-SBTTL TRAP DECODER 
Ts et ree pg er ee a a eg ge es 


iki end-use It MHibex FeRouGH iH 1H Rap. TABLE | FOR TH T EET ART ING. SOORESS 
p44 ra THT ore” HEN USING THE ADR ESS OBTAINED IT WILL 





7410 033076 91004 STRAP: MOV - 3 
741 633100 08 ooocoe MOV ($e) -RO BYE RRp ADDRESS 
74] 1 4 TST -(RO) + OE cKUP ay e 
7413 033106 111000 MOVB (RO), RO ::GET RIGHT Or Inde TRAP 
7414 3110 BOP 08 ASL RO 3;P0 TION FOR INDEXING 
7415 331! 01600 033132 MOV STRPAD(RO),RO ;;INDExX TO TABLE 
7416 O33116 O06200 RTS RO ::GO TO ROUTINE 
osie 
aude ;;THIS IS USE TO HANDLE THE “GETPRI” MACRO 
Piet BEELER BLLEFE coacos coocoe SAPS HOY SEO SEH, IRON THE BELO, 
) s* 
788 hice atsatatale RTI eee ORE THE PSWi 
7425 .SETTL TRAP TABLE 


QrNoO0000 


‘$6 oo GE MACYII 306 10NG) 1S-DEC-77 11:03 PAGE 139 
1S-DEC-77 10:58 TRAP TABLE SEG 0136 
;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 

;*BY THE “TRAP” INSTRUCTION. 


; ROUTINE 
9331 0 $TRPAD: .WORD § 
10 T ; ;CALL=TYPE TRAP4+1(104401) TTY TYPEOUT ROUTINE 
0313) TY ::CALL=TYPOC Tabs 1 Ge) TYPE SC TAL NUMBER (WITH LEADING ZEROS) 
Ee Vest figatsiveon Teepeatipidos; Type Sera Mikes Ue bests, fare 
+3 = c 
031562 TYPDS ;;CALL=TYPDS TRAP+S(10440S) TYPE DECIMAL NUMBER (WITH S TZN) wi 
031776 SGTSWR ;;CALL=GTSWR TRAP+6(104406) GET SOFT-SWR SETTING 
031726 SCKSWR ;;CALL=CK TRAP+7( 104407) TEST FOR C IN SOF T-SUR 
032210 SROCHR ;;CALL=ROCHR TRAP+10( 104410) TTY TYPEIN CHARACTER ROUTINE 
30232 OLIN ;;CALL=ROLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
32466 SAVREG + CETL SCAVREG TRAP+12(104412) SAVE RO-RS ROUTI 
032524 SRESREG ::CALL=RESREG TRAP+13(104413) RESTORE RO-RS ROUTINE 
027456 SOSPLY ::CALL=DISPLY TRAP+14( 104414) ROUTINE TC TYPE ERROR MESSAGES 
000032 STERM=. -$TRPAD 


5p SSAARAAAAARKSALASAEAAAAAELERALAAALKE SERRA AARAAARELAAARARAHRLLS SSSA 


ad 


-SBTTL SINGLE/DUAL PORT RH11/RPO4/S’6 DRIVER (REV 1.0) 


;COPYRIGHT (C) 1976 
;DIGIT a te CORP. 


; MAY 1 
AUTHOR(S): JIM LACEY/CHUCK HESS 
5 SHASAARSSKASRSEKARASLAAAAAALEARALESAAARARLAARLAALAAARALAASUAAASE 
;STORAGE FOR RPDS1, RPERI, RPER2, AND RPER2 ON AN ERROR “2” 
; RPERRS RPDS! 


:RPERRS+2 = RPERI 
:RPERRS+4 = RPERE 
:RPERRS+6 = RPERS 


900009 000000 OO000D RPERRS: .WORD 0,0,0,0 


900060 
; TABLE OF ORIVE ACTIVE INDICATORS (ORVACT=8 BYTES) 

;ORVACT=0 IF ORIVE IS IDOLE 
;ORVACT>O IF ORIVE IS ACTIVE WITH A COMMAND 
;DORVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION 

ooo ORVACT: .BYTE OQ ;ORIVE O 

000 -BYTE @Q ;ORIVE 1 

jsjeie) -BYTE Q ;ORIVE 2 

006 -BYTE OQ ;ORIVE 3 

006 -BYTE Q ;ORIVE 4 

000 -BYTE Q ;ORIVE S 

006 -BYTE O ;ORIVE 6 


SEG 0139 


;ORIVE 7 


YTES) 
“RONEXISTENT (DRVSTA=0, ALSO) 


11:03 P 140 
11/RPO4/S/6 DRIVER (REV 1.0) 
S 


-BYTE 


ooo 


il 


P 
7483 033203 


0, RPO4S- 


CZRIOC 
C2RIOC 


Q0000000 


TWwO-uUM 
ee NU 


MAAAIAII 


BQ000000 


+ SE eee ol TWwWwOROaV’o-uM Oro 
ic Ree RHIC 
RRRRRRRERERERR ARR 


RRR RAE 


THE DRIVE 


TIVE ON 


O-uUmMT Ww 


SeSSSSes 


0-4-4 4-4 4 


ratatat=f=tato} 


32 
32 
32 
Je 


~o 
MOMMMOMMMM 
Q0000000 


FOR THAT ORIVE 
THAT DRIVE 


STS 
ORT 


TA DUAL 
T A DUAL PORT 


PORT REG 


O--uMTinw 


0000000 


NOE 
Sa 


f 


ec bin iseoee ese 
3 033243 000 
5 
754 
4 
ay 
4S 033244 000000 
oe 
3 
oes 03324%6 oo0000 
7555 
7556 
7557 
oeeg 
$8°3 033250 ooo 


see 


sSeCRRTERER IS ise eR 


atotatatataioitn 


Powe 


033251 ooo 


033262 
033263 000 
033264 000 
33265 000 
033266 000 
033267 900 
3270 600 
033271 000 


Gc 


10:58 


K1l 
MACY 11 39¢ 1048) Yeu Bees hoa fae By 576 DRIVER (REV 1.0) 


-BYTE O ;ORIVE 7 
ercinglieg re T clas (TRNSWT=1 WORD) 
1S_A_ONE WORD QUEUE IT WILL CONTAIN THE ADDRESS OF 
;™ OF THE 170 ON. 
TRNSWT: . 


; SEARCH WAIT am 


is 


I 
SRCHWT: . ‘WORD 0 


ee , HA the CONTAIN NA eye bor cacy 


;RPO4/S/6 ghRiVeR AG TIVE ree {ACTORV=1 BYTE) 
=0 if IVER {2 INACTIVE 

;ACTDRV> F DRIVER IS ACTIVE 
ACTORV: .BYTE O 
; SOF TWARE ii... ROUTINE ACTIVE rLaG (ACTSTR=1 BYTE) 

R=0 fF ener Ti ROUTI IS pen ae 

Bet TR> F T TIMER ROUTI IS ACTI 
ACTSTR: .BYTE O 
;UNLOAD FLAG (ULDFLG=8 BYTES) 

;ULDFLG=0 IF NO UNLOAD COMMAND 

;ULDFLG> F UNLOAD ee ix PROGRESS 

; ULDFLG< F UNLOAD C N WAIT QUEUE 
ULDFLG: .BYTE O ;ORIVE O 

-BYT 0 ;DRIVE 2 

‘BYTE 6 DRIVE 

.BYT 0 ;DRI 4 

BYTE 8 ;DR 5 

.BYT ;OR 6 

-BYTE O ;OR 7 
; LOOK “ey COUNT (LACNT=8 BYTES) 

LACNT WILL INDICATE THE NUMBER OF LOOK AHEADS PERFORMED 

LACNT: pom 0 ;ORIVE O 

-BYTE O ;ORI 1 

-BYT 0 s BRE e 

.BYT 0 : ft 3 

-BYTE OQ ;ORIVE 4 

-BYTE 0 SDR IVE Ss 

-BYTE O ;DRI 6 

-BYTE O ;ORIVE 7 
;SAVE REGISTERS FLAG (SAVEFG =1 WORD) 

;SAVEFG <0 IF SAVE THE RH11/RPO4N~S/“& REGISTERS WHEN THE 


nAT Tots Teer ORM THEIR REQUE 
vE Is‘As E5 ONE IT 1 EThe Fine at By a8" FOR DRIVE QO. 


SEG 0140 


On 


BB 


ceccreocoo sooo Ge 


Ob be he ee Be 


L1l 
Met reece ee bese | MAC YE CARD ole att hal ADA olen (REV 1.0) Seo O14: 
iSeveroco et ae BVE IG RAIL -RPON S76 REGISTERS, AS PER 


+14), AFTE 
033272 900000 SAVEFG: .WORD 0 


; SEEK “ae Ue S ee IgweT IN THE WINDOW 


KFG< ER WILL OO IMPLIED SEEKS, 
033274 900000 SEEKFG: .WORD O 
; TIMEOUT TABLE (TIMER=8 WORDS) 
THES TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION 
7 77777 TIMER: . -] 5 0 
B3 155555 WORD -1 Be 
3 177777 -WORD -1 3 
3 177777 . -1 DR 
306 177777 ‘ -1 ; 4 
19 177777 ° -1 DR 
3331 177777 ’ -1 ; 
33314 177777 -WORD -1 ;0R 
OR 


;DATA T ER sae CATOR (DTUW=1 WORD) 
UW<O IF NO Data TRANSFER UNDERWAY 
TUW=4N (WHERE N=0 TO 7) I 


033316 177777 OTUW: ‘WORD ~§ 


;ATTENT 10H Tits Fague cont 


ores) 18 ag HD 


3" 
Dy 
me 
we 
. 
3 
& 
~ 
3 
it] 
eos 
-4 
a" 
oO 
m 
D 
im) 
4 
oO 
2D 
ya 
< 
m 
w 


033320 ATABIT: ann ;DRIVE O 
el p63 .BYT : ;ORI 
Ba66 004 .BYT u ;DRI 
3 010 .BYT ; 

3 620 .BYT ;DR 4 

333 040 -BYT 40 ;ORIVE S 

as Os Be ip RMS 


POLLING. TO RH11 “MASSBUS CONTROL BUS PARITY ERRORS” (MCPE} ALLOWED SEFORE 
CALLING IT FATAL (MCPEMX=1 WORD) 


033330 006003 NCPERK: -WORD 3 


T FOR RPADR (T RST ADDRESS (776700) OF THE ot wee ‘6), 
SRPVEC CTHE VECTOR ADDRESS (254)), AND RPVEC+2 (THE BR LEVEL (5) 


033332 176706 RPADR: .WORD 478790 
C33334 900254 oc00240 RPVEC: .WORD 4,S#32. 


C2RIOCS 


_ OC .P11 


ohne 3 


sooo cag 


SERRREERE 


tataacaaatatataatata 
Jared Zon-3 


SERGRORRERRER 


033340 


033342 


033344 


033346 


RPOY/S-6 MLT-DR LGC 
1S-DEC-77 10:58 


ooo004 





MACY11 30( 1046) 
SINGLE 


1S-DEC-77 11:03 PAGE 143 
/OUAL PORT RH11/RPO4/S 6 DRIVER (REV 1.0) 


;MAXIMUM NUMBER OF LOOK AHEADS ALLOWED IS 4 (MXLACT=1 WORD) 
MXLACT: .WORD 4 
;MAXIMUM DELTA DELAY IS & SECTORS (MXDLTA=1 WORD) 
NTI PR . oftay i 
MINIMUM DELTA DELAY IS 2 SECTORS (MNDLTA=1 WORD) 


EXIM “ SPERCH FOR 1/0 WINDOW IS S SECTORS (MXWNDW=1 WORD) 
MXWNDW: .WORD 5S 
;DEFINITIONS OF THE 9H11/RPO4/S/’& ADDRESS INDEXES 


te HE a mtnoT a oRive (OR NS REG. 00) 


meee ea TRACK Ress Re sebHUiEa*t BRI VE aces os) 
Apes REG. 04) 






ee jh age BME EE: 18 
Bis a i beftsite ss 
RPECe=46 REGISTER (DRIVE REG. i7) 


RH11 ns OR The chs i 


he THIS BUT INE CALLS BRVINT 


: 15h 

: TURN 

;NOTE: THE 'P’ OR 'L’ 

RPINIT: SAVREG 
MOV 


He_DRVSTA INDICATOR 


PC,RPINIT 


CLOCK MUST BE STARTED 


a0Ps,=(SP) is SENT ite STATUS 
« 4% Ss uy 
JSR PC.C >CL aa pEGUES! 
MOV Sens FI ST AbbREE EgUES ge CLEARED 
MOV WSEEKFG, Re :LAST ADDRESS TO BE CLEARED 
1$: CLR : CLEAR 


SEG 0142 


CATT Wiha RD ol i Tout WBE len ce 1.0 Be 
: R ; ARE Oren 
Br ues, tate 





; BRANCH 
771 2s: Her Yar } 
77} Ri ,Re ; 
771 Los i£0 IF NO 
o3i3 cLR TA. ‘ ; ALL ORIVES TO OFFLINE 
wae oh aes 
ca HOV ;SETUP THE RH11/RPO4/S/6 VECTOR 
77 MOV Rovee Rents) 
7 cocoon TVOBT rcs2cmn ALGAE or MAtI/#POH 
77, CLR Rae stant WITH DRIVE O 
7723 3s SR , ORVINT :INIT THE DRIVE 
27 2 ;*DVA’ T T OR PARITY ERROR 
ca 38: ihe” R TACRI) ;SET DRI TaTus TO OFFLINE 
7 Ee yes 4 n* 18 co 
ee ee Stent ve? 
22 6S: rsr8 OPINT(R1) CTT ny Sate E To oaTteH PORTS ? 
77 SP Bs SET IE ;SET NTER 
rag 7$ STB opin (R1) :DRI SHIT CHED PORTS ? 
: =~ Fo 1 sale 
ca HOV ‘ So )+. ours 6 st THE PROCESSOR STATUS 
rik RTS PC : BYE-BYE 
774 ;DRIVE INIT ATION ROUTINE 
7744 i hg BBuTIN INE DETERMINES IF A DRIVE pbxist AND IF IT IS 
7; at IF IT wee’ A “REGD-IN SET” IS ISSUED AND FMT22 
7746 A'"1". THEN’ MOL, Y VV ARE CHECKED TO 
aoe Rok i Hed abe tba had mpage dale: scoky ants: 
55ea pee es VNUM, RI DRIVE R TO RI 
7751 ; MOV ADR, R4 ONT NOOBRES OF RH11/RPO4/S“6 (RPCS1) 
7 ; ISR RO, ORVINT :CALLED BY A J 
7753 : RET SERROR OCCURRED (PARITY) 
27 4 H T :NORMAL RETURN 
? , 
77st 3562 01054 DRVINT: MOV -(SP) 
? 3564 1 1 0O3 CLR BRVSTACRL : hh STATUS AS OFFLINE 
free Basera Bee] Baisl3 cae PIMEetat; = LER HE ONobo functor 
7761 033600 bi 164 i MOV i RPCSeCRY) >SELECT A DRIVE 
3 ES 033604 112764 O00111 oo0000 MOVE #il1,RPCS1(R4) [00 A DRIVE CLEAR COMMAND ($ SEIZE DRIVE) 


CER IDEO,  RPON SCO ETIBR CE, ACYL St OE DUAL 7h Hide Pole (REV 1.0) SEG 0144 


010000 oo0610 eo 1T12, RPCS2(R4) a NONEXIST NT DRIVE? 

041066 usr ,SET.IE ites ms, ccd A “TRE” 
1$: L TACRI) : OFFLINE 

834500 aooca0 : TIT, RPCSI CRM) ye ORIVE -AVATLABLE 


te eh eeemer ee eae 


BOREAS BARS Sorc scrsdl 





;FINO OUT WHY ATA=1 


ag ; area RETURN RESS 
MOV (SP)+,R5 jPUT + Beas 
900001 033214 MOVB 4 TYP(RI1) ; INDI 
bro RS ; InAs INGL A OORT RPO? 
024020 MP #24020, RS : : A PORT RPO4? 
BEG 2 : F YES 
goo0ge 033214 MOVE TYP(RI)  ;SET REOS IND CATOR 
7280 1 cH § 1,R5 : NGLE T RPOS 
o7 Be 024021 cre § 1,R5 : “Pont RPOS ” 
7784 90004 033214 MOVB 84Y,ORVTYP(RI) ; * 190 CATOR 
7785 2 CMP ¥ 2,R5 : GLE 
7786 BEG 2 :BR I YES 
aa i 38 70s oe4022 CMP s 2,RS i DUAL PORT RPOG ? 
1 BEQ ; F YES 
2789 12761 177777 033214 HOVE 8-1, DRVTYPCRL) 1 amet TO ‘OTHER’ 
7791 127% 000121 2¢: MOV 8121,-(SP) 00 A “READ-IN PRESET” 
£35 o4os6e JSR RO, WRT. RP 
35eq g 114 _ 
7795 Gi MOV aB1T 12, -(SP) ;SET FMT22=1 
Bees JSR RO, WRT’ RP 
7797 RPOF 
a ra 98, 
77 040406 RO,RD.RP ;READ RPOS1 
7800 19 i2 RPDS1 
7801 1 Nehees 83 
? 1% O1 MOV (gP? +,RS ;AND SAVE_IT_IN RS 
1000 “BRANCH IF ATA=0 
aTagtT «Rt, ,RPAS(RY? ; NCLEAR ATTENTION BIT 


033320 OO0016 
O4O406 


ee 
2 

o> CO 
fine 
=z 
wo 
D< 
oD 


rey Ba ie 
7308 4036 006126 ROL (SP i+ :IS T UNSAFE? 

7 G34040 100004 oL 4 :BR NOT 

7810 634055 686482 177777 033204 MOVB 851 ,DRVSTACRI) eee INDICATOR 

sie 0 105 4$: COM RS ‘CHECK M DPR, DRY, AND VV 

7813 O34054 O8e708 167677 BIC e}c<BITL2!B1TOB!BI TGP 1B1TOe , RS’ 

7814 1063 BNE o$ ;BRANCH I mo. pPR, DRY OR VV IS CLEAR 
7815 piers) 609001 033204 Move # DRYSTA(RI1)  ;SET DRIVE st Tate To NL NE 

716 720 6S: TST (a6)+ :STEP OVE ROR ae uRN 

7817 024072 900410 BF tEXIT 

7818 034074 O96301 7$: ASL a¢ !CHANGE INDEX TO ADDRESS WORDS 


Cle 


joco, RPO4-S/6 MLT-DR LGC MACYLi 30(1046) 15-DEC-77 11:03. PAGE 146 
cSRIDe. » ve 1S-DEC-77 10:58 SINGLE DUAL PORT RH11/RPO4/S/E DRIVER (REV 1.0) SEG O14S 

7819 1 063720 0233276 MOV #2000.,TIMER(R1) _;START E SEC TIMER 

ton 1 ASR Ri iRE T : 
7854 16 1 033224 : m apse : NITIALIZE INISICATOR 

¢ ‘ 

114 Ol es: Vv (SP)+,RS ;RESTORE RS 
7824 034116 000200 RTS RO : EXIT 
783¢ ;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST 

> CALL 
78e9 3 
30 ; paTagr ee iBpbRESS oF TRIER tea OF “BRrve VES PARAMETER BLOCK 
rau ; RETURNE 4 ST ree IN QUEUE OR THERE 
7834 ‘ mer BN ‘sh TF. REOuES 
? 1 1 7777 RPOY: MOV #PS-(SP) ; NG STAT 
ra3e 1 b1373¢ 6333 177776 MOV Bp +2, aePs ; atte Be Bea ai INTERRUPTS 
78 1 112732 i 033250 HOVE #1, ACTDORV DRIVER” FLAG 
oud tae AO 008 Sov ’ (RO) ,R2 : PARAMETER K POINTER 
oe4i 144 000016 CLR 16(R2) ie pe: Monee INDI Mahis) 
784, 150 Ail 1 MOVB (Re) Rh 
7B43 1 i 033332 RPAOR UAYEUS ADDRES MBPS! 
7844 i 108761 033204 rots bRV STACRI) a a Or BPC 
neue 164 105761 033252 STB DFLG(R1) UNL N QUEUE? 
784 1 001036 BNE 3 H YES 
7e4 G54i76 76 033224 rsts INT(RL) Tey Sc to INIT THE DRIVE 
7850 033562 ISR RS, DRVINT :GO INIT. THE ORIVE 
7851 34 BR 4 ; T 
785¢ p 761 033204 rs7e DAVSTACR: ; hot le TUS ONL INE? 
7854 O34 14 761 033234 1S: TSTB @S(R1) ING PORT REQUEST FOR THE ORIVE ” 
7855 1031 BNE $ 
7 10164 000010 MOV ,RPCS2(R4) : Ai "co 
725 041530 JSR R ’ DRVGUE ates Ouest IN QUEUE 
7 o00102 oo0002 CMPB #103, 2(R2) tee Oo FoR AN UNLOAD? 

7860 2 00 BNE 2s ; 
7861 i 1 177777 033252 MOV: 8-1 AbhOELGCRL) ; THe “yw 079 N QUEUE” FLAG 
786¢ 1 57 1 033174 2s: TST DRVACT(RI) Wl DRIVE Bot ive? 
7868 p3i5e8 04737 034412 ie Be, oPT ALL i OPTIMIZER 
2 eg Bins 120000 o00016 35: HOV aBITIS!B1T13, wn -SET THE “UNLOAD IN QUEUE” ERROR FLAG 
7ee8 76 737 035522 4$: JSR C,C17 GO ee THE PARITY ERROR 
7870 O3304 0037 041530 Ss: JSR , ORVQUE Bue REQUEST IN QUEUE 
7872 O34312 032714 o00100 BIT #BITO6, (RY) '1S ‘Ie’ 7se! ALREADY ? 
7873 O3431—6 001023 BNE ef :BR IF 
7874 034320 004737 O410bE ISR PC, SET. IE :SET INTERRUPT 
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324% 000420 gr &% ; RETURN, REQUEST IN QUEUE 
2876 B34 A 033204 6S: iste DRVSTACRI) : OFFLINE OR UNSAFE 
? 7 4 000016 MOV ITIS!BITI4, 16(h2) ERROR INDICATOR 
res Bet asa Bio RTE FLING ERROR TNOICé 
7881 100002 000016 nov AGITIS#BITO1, 16(R ) POR IVE NONEXISTENT 
? 27’ 110000 oo0016 7$: MOV _- #BITIS!BITI2, 16¢ -ORIVE IS £ 
ceed he ge: PESREG ‘ut $ > Re . 
7885 7 T (RO)+ : OR NORMAL RETURN 
7886 437 10$ Reston UP, THEN EXIT 

74 41 Q¢: ESREG ; RE RO - 
rere Brags [bens a a Sy ane 
oBSc B44 A930 7 033880 MOV (SP)+,aaPs te Spal Guyer. Lever 
7831 034410 000200 RTS RO ‘RETURN TO CALLE 
7893 ;OPTIMIZER-CALLED FOR A PARTICULAR DRIVE 
cESe : CALL MOV sORVNUM, R1 ; ORIVE NUMBER TO R1 
7897 : JSR PC, opr :SETUP @ COMMAND 
78939 O34412 104412 opr: SAVREG 
7900 O34414 013746 477776 MOV asePs i SAVE PROG. Re rat aqus 
730 20 146137 3320 033246 BICB atpBtTiel), srcHut LEAR © ARCH WAIT” KEY 
? 426 boa339 041604 JSR PC, GETREG GET pee INT: R 1h wPESLEST 
7303 432 005702 TST HS" A RE N QUEUE? 
7304 34 BEG 7s NO--BRANCH A F6ee 
7905 $08 004000 o00000 BIT #BITL1, RPCSI(R4)’ iis bva’s 1, 
7906 407 BEQ ; BRANCH NOT 
7307 a6 : 4 000100 oD001e BIT #6 T6,RPDSI(RY) ': sw, . 
? 034456 004037 033562 Qs: ISR RO, ORVINT :SEE IF ORIVE STILL ONLINE 
7910 462 70 BR Be : PARITY *DVA’ NOT SET 
7911 mt 105761 033204 10S: TSTB VSTA(RI) We ONL INE? 
7912 003014 BGT YES-- H 
7913 72 737 041626 JSR 8 -- EY ee ST FROM QUEUE 
7914 76 Ol 140 000016 MOV Sere TTA, aie : FLINE STATUS/ERROR INDICATOR 
7915 O34S04 105761 033204 TSTB DRVST VE UNSAFE ? 
7916 O34510 100064 BPL O-ExIT IF NOT 
ogiz r Bb5ve5 110000 o00016 mov 8 ITIS!BITie2, recA) ands SET UNSAFE STATUS/ERROR INDICATOR 
7319 0 12746 000111 1$: MOV #111,-(SP) ?LOAD COMMAND ONTO THE STACK 
7$2e0 G345e6 004037 OG40Sé6e JSR RO, WhT. RP ;LOAD THE REGISTER 
7921 Oa¥e3¢ 0000 RPCS1 :R GISTER INCREMENT 
7922 644 6S :E TURN ADDRESS 
e352 034536 e714 004000 BIT #BIT11, (RY) : DRI AVATLABLE ? 
7925 O345a4 1ee76e 000156 copone cNre #150,2(R2) His. REQUEST FOR 1/0? 
a os+ bce iL ; ite 
7927 O34 Sy 737 035106 ISR PC,CI4 5 CALL HE COMMAND INITIATOR 
7928 60 O446 BR !BRANCH TO 
7923 034562 005727 0233216 2s: TST OTUW ‘DATA TRANSFER " yroeRuay 
7930 O34566 O020lz2 BGE 4g :YES--GO START A SEARCH 
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033274 TST SEEKFG 00 IMPLIED SEEKS? 
036056 ach LA NB -D0 TOO AHEAD 
: TURN HERE A PARITY ERROR 
4 : TART A SEARCH 
034672 3S: SR PC,CI1 ; T A DATA TRANSFER 
035000 4S: ier ¢,c13 ;START A 
177777 033234 SS: MOVE #-1,DPROS(R1) ade: 1 Bort ieee INDICATOR 
MOV R1,R3 SS WOR 
ASL R con WORD INDE 
023420 033276 nov pe , TIMER(R3 33 Tor SEC THER 
0355 6$: JSR iB S THE PARI Ty ERROR 
0001 3: BIT apt toe, (R4) Bocess, IE’ Y SET 
BNE aes SET 
041066 JSR Be SET. IE a “IE" WITHOUT A “TRE” 
12637 Teee 6 as: MOV (SP)+, aaPs TORE PROC. “pe ratus 
950 O24665 10413 RESREG STORE RO - 
reek 034670 0207 RTS PC 
7953 ;COMMAND INITIATOR 
7984 : 
7955 > CALL 
7956 ; MOV #ORVNUM, R1 ;DRIVE NUMBER 
7957 : MOV sOPB, R2 :ADDRESS OF DPB 
7958 : JSR pc, ct? :CI?= CI1,CI3, OR CI4 
7959 : WHERE : 
7960 : :CI1=DATA TRANSFER 
7961 : : CI2=SEARCH RE QUES TED. BY DATA XFER 
7abe : :CI4=NOT DATA TRANS 
7964 034672 004737 041626 Cll: JSR PC, POPQUE ;REMOVE REQUEST FROM “DRIVES WAIT” QUEUE 
7965 034676 010237 033244 MOV Re, TRNSW :PUT REQ. IN TRANSFER WAIT QUEUE 
7966 O37 019203 MOV Re'R ; DPB 3 TO R3 
7% 7 13704 033332 MOV RPADR RY ; $1 3s 
pees DSuria § DeStes | SpooDS my ecsecmy) eT SHOR COUNT 
7970 034720 Bessos 000002 ADD RY H RED ORES 
7971 0347 Giese MOV (R3)+, (RY)+ tL COUNT 
7972 7 012324 (R3)+! (RY)+ tL BUFFE ADDRESS 
7973 034730 Ole 46 MOV (R3)+'-(SP) :LOAD SECTOR AND TRACK 
7974 0347 37 o40S62 JSR ,WRt. RP 5 CALL LOAD(WRITE) ROUTINE 
73 7 Ob RPOA : INDEX REGISTER TO LOAD 
7976 034740 035522 CI? tERROR RETURN ADORESS 
7977 742 este MOV (R3)+.-(SP) :LOAD CYLINDER ADDRESS 
7978 744 040562 JSR RO, WRT. RP 
7979 750 34 RPCA 
7980 034752 S22 CI? 
7981 034754 016246 oDD002 MOV 2(R2) ~ (SP) ;LOAD “COMMAND+GO", “Al78A16", AND “PSEL™ 
7982 034760 004037 O40S6be JSR RO,WRT.R 
Feed BSu7ee Daeeee tae 
7985 034770 010137 033316 MOV R1, OTUW :SET “DATA TRANSFER UNDERWAY” 
7986 0234774 000137 O235464 IMP crs 
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cst SEG C146 
z C13: “19% RPADR Re OF oni RPCS1 ADORESS 
oa69 MOV iethes, ($F) SELECT. OEY ENDER ADDRESS 
2330 , WRT! RP 
79 A 
5gqp CI 
7393 MOVB 10¢ )B3 ;PICKUP SECTOR ADDRESS 
7994 3u8 *R :BACKUP BY MAX. SEARCH FOR I/O WINDOW 
73936 ADD 2.,R3 
739 1$: MOV R3,-(SP) ;COMB THE ADJUSTED SECTOR WITH 
e338 000001 MOVB (Re), (SP) : THE IRED TRACK 
ISR , WRT: RP :LOAD DESIRED TRACK & SECTOR 
a o 
MOV #131,-(SP) ;START A SEARCH 
8003 ISR WAT. 
8004 RPCS 
goos 0: CI 
076 033246 B1S8 ATABIT(RI), , SRCHWT ;SET “SEARCH WAIT” KEY 
1 CI4: MOV RPADR, RY sRPCS1 ADDRESS 
11 MOV R1 ReCSE(RY) i SEL CT ORI 
801 ll MOVB eke) : PICKUP QUESTED COMMAND 
801 0381 CMPB #131,R3 :15 IT A SEARCH COMMAND? 
801 1 BNE 1§ :BRANCH IF NO 
8013 0351 MOV 10(R2),-(SP) ‘LOAD DESIRED TRACK 8& SECTOR 
8014 139 JSR RO, WRT! RP 
8015 140 RPDA 
8016 142 CI? 
801 144 ER 2s ;GO LOAD CYLINDER 
B01 1 1S: CMPB #105,R3 iTS IT A SEEK COMMAND 
1 BNE 3$ : BRANCH Ma NO 
14 2s: MOV 12(R2),-(SP) :LOAD DESIRED CYLINDER 
035160 JSR RO, WRT 
164 RPCA 
802 1 C1? 
B024 1 46 BR CI6 
8025 17 2 000115 33: CMPB #115,R3 31S IT AN “OFFSET” COMMAND? 
B0eb 1 101 BNE 4% :BR IF NO 
B02 p43 040406 ISR RO,RD.RP ;MERGE THE OFFSET VALUE INTO RPOF 
B0e8 9000332 RPOF ‘BUT DON’T CHANGE THE UPPER 
8030 1 1g 000001 MOVB 1(R23, (SP) By 5 WHEN QADING THE 
8031 14 37 O405 JSR RO, WRT. RP GISTER ( 
8032 035220 32 RPOF 
8033 O3Se S2 CI? 
B034 9 BR clé :GO START THE CO AND 
80 ige 000107 4$: CMPB #107,R3 :1$ IT A “RE aL TBRATE™ COMMAND? 
8036 0352 1525 BEQ CI6 :BRANCH IF YES 
8037 34 iee703 000117 CMPB #117,R3 :IS IT A RETURN TO CENTER? 
80 1Se2 BEQ Cl6é :BRANCH IF 
8039 O35¢4 120703 000103 CMPB #103,R3 :1S IT AN “UNLOAD” COMMAND? 
e040 O 1016 BNE S$ :BRANCH IF F 
8041 O35250 112761 000001 033174 MOVB #1,ORVACT(RI) SET THE DRIVE ACTIVE INDICATOR 
e042 O2525 106061 033204 CLRE ORYSTACRI) :PUT DRIVE STATUS TO OFFLINE 
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033252 


000001 


038372 


038372 


00001i& 


033276 
033174 


099010 


S$: 


6$: 
7$: 


gs: 
9$: 


10$: 
11$: 


12$: 


CI6: 


CIi?: 


1$: 


MOVB #1,ULOFLG(RI1) ;SET “UNLOAD IN PROGRESS” FLAG 
-( SP) ” COMMAND 


R3. :START THE “UNLOAD 
Me RB tunt Re 
RPCSI 
&4Z PC ;RETURN TO USER 
MPB #143,R2 71S ITA rset FORMAT” COMMAND? 
, RO. RP ;READ Cue OFFSET REGISTER 
cre 
MOVB 1(R2),1(SP) ;COMBINE “FMT22”,"ECI™, AND “HCI” 
JSR bo" fat Re : LOAD a ee neces AND/OR “HCI”. 
CI? 
BR 128 
CMPB #141,R3 ;1S IT A “GET REGISTER” COMMAND? 
BNE 10$ ; RANCH IF NO 
MOV 6(R2),R3 : QINTS 0 1ST ADORESS OF WHERE 
:TO PUT THE REGIS FRCS) 
MO 10(R2),9$ :INIT. THE IN x FOR THE FIRST REG. 
ee ba RS ape 5 ANDEX Orubece REGISTER 
RPCSI : : INDEX OF G. TO he 
MOV (SP)+, (R3)+ ;GET THE CONTENTS OF RH11/RPO4/S/’6 REG. 
CMP 9$.RS iL A T REG. BEEN READ? 
BEO i2$ ; OUT IF YES 
ADD 82,95 : INCRE THE INDEX BY 2 
R 34 Q08-- 0 READ 
MPB #145,R3 :IS ITA LECT DRIVE” COMMAND? 
BEQ 12S :BRANCH IF YES 
MOV Ra, {SP 2 +LOAD THE COMMAND 
JSR RO; WRT. RP 
ReCS1 
ISR PC. POPQUE ;REMOVE REQ. FROM QUEUE 
BIS w6tT07,16(R2)  ;SET THE “DONE” BIT 
TST SAVEFG :SAVE THE RH11/RPO4/S’6 REGISTERS” 
8p 13s :BRANCH IF NO 
S C,SVRH11 :YES--GO SAVE THE REGISTERS 
RTS pC ‘RETURN TO USER 
nov #1000. , TIMER(R1} ;SET A ONE SECOND TIMER 
MOVB #1,ORVACT(R1)  ;SET THE DRIVE ACTIVE 
RTS PC :RETURN TO THE USER 
MOV R3,-(SP) :LOAD THE COMMAND 
JSR RO‘ WRT. RP 
RPCS1 
C1? 
BR CIS 
BIT #61712, RPCS2(RY) jORIVE NON-EXISTENT ? 
TS Re tANYTHING IN QUELE ? 
BEG CI7B :BR IF NOT 


SES 0149 


CZRIOCO, RPPOY/S’6 MLT-DR LGC MACYI1 30(1046) 15-DEC-77 11:03 PAGE 151 
CZRIOC.Pil 1S-DEC-77 10:58 SINGLE/DUAL PORT RH11/RPO4/S’6 DRIVER (REV 1.0) Sco 0150 


26 a7? 0780 000016 ney PevevRHiL mat: save’ The Tee owe As? ore 
iv) Seite 


C178: mOV ait, a'5B) crear” 


wut 


1 
1 
ig) Basses 
104 
He Ge BE? puss 5h PCAENPTYO «= GENPTY THE QUEUE ce rac 
ci term tae Bailie aS Wat YE SOAIVE veo en 19 segue 
8188 bag Ene ip i AME FAR At OP cacs 
8110 o33244 CL T 
111 i 12 177777 033316 MOV #-1,0TUW 
Bile 000207 1$: RTS PC 
gil jO4si¢ ce: AVREG ;SAVE RO_- RE. 
114 4 010000 o00010 IT #BITL2,RPCS2(R4)’ ;-IS 'NED’ SET ” 
pa ee aes | palate 
11 LR R 
8118 0356 105761 033174 1S: TSTe DRVACT(RI) ;DRIVE ACTIVE? 
ciss Beebe BUArge See he 
1 46 Ol 033244 MOV T,R2 'GET THE “TRANSFER WAIT” QUEUE 
giel fe Bis 7 033316 CNP 5 , OTUN iBrewcn Teves HAVE AN 170 IN PROGRESS” 
123 7 1604 Ch , GETREG :GET OINTER 
3 4 re - 2s: TST Re’ s QUEUE ENtRY FOR DRIVE ” 
Bise p3ee58 Baz764 o19008 coo0ic Br se1T12, RPCS2(R4)" A Fen SET ” 
giee 035700 eae 100002 o00016 nov s #BITIS!BITO1, 16¢ rise *DRIVE NON-EXISTENT’ INDICATOR 
8130 035710 0127 02000 0016 3S: MOV r IT15!81T10, 162) E PARITY” ERROR INDICATOR 
8131 36716 09737 46750 ae JR Pc Sve HII 3, 3A ae 11ZRPO4 n7570 RE EGISTERS 2 
£135 832555 OhEze? 33174 : CLRB Bavact 1) “ORY s ACT Ive" TO IDLE 
b134 035734 137 033316 cMP R1, OTUW SETUP FOR A TRANSFER 
Bi 3e aa eid 177777 033316 MOV #-1,OTUW FRO INDIC 
£137 750 37 033244 CLR TRNSWT oe THE TRANSFER QUELE 
81 754 1 033252 S$: CLRB ULOFLG (Ry) UNLOAD FLAG 
81 760 4 010006 oo0010 BIT 3 Tle, RPCS2(R4)’ ons est! ? 
81 766 1021 NE BR I 
g141 035770 p0se01 " INC Ri se i Bove 1O PHE NEXT DRIVE 
B15 B3e27e 48701 eas BIC #1¢7,Ri 
£144 036002 1316 BNE 1S ; BRANCH IF altORe DRIVES 
£145 004 737 77777 033316 MOV 8-1, 0TUW :NO DATA T FERS UNDERWAY 
Bi46 12 9 7 633244 CLR TRN eit ;CLE fue” 'T ANSFE WAIT’ QUEUE 
14 1 4737 041432 ISR LROUE :CLEAR ALL OF THE REQUEST QUEUES 
gig B3e886 Z 4 000040 oD0010 Hov i 6+ $be. RPCS2(R4)" ‘i 06 MASSBUS INIT. 
61S0 737 041510 6$: JSR EMPTYG ‘CLEAR THE ORIVE’S QUEUE 
Bigs Oaeoss jpeoet passers Et Re patrresay i oer PRIME ORIVE® TYPE INDICATOR 
EtES BSebue Apaes> er be 7s: it Beet fe CLE Bee pe ashr The 
BiE4 O260s2 104413 RESREG 'RESTORE RO - Re. 


WOM OM VMDOMOWOOWMNMVOMOWMDMOWOWOOVMDDOWOWOWMMOOWONOVDNOOWOWMVODODOVDOOOMOUMOD ie 
TU a 0 he 0 be 0 be be be he he bo be bo Bo be be Be be Bs be be ee hh hehe | hy 
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Ile 
TPO eS ORR ISON BPE MACYS! SQINGUE/ouAL PORT AML /RPOY/S~6 DRIVER (REV 1.0) 


036054 000207 RTS PC ; RETURN 
;LOOK AHEAD ROUTINE 
> CALL 
: ad SOP en OR INT TO a 
: ISR ROCA :GO CHECK if WINDOW 
; TURN ; RROR RET 
; Re! ;START A arc 
: TURN :START A A TRANSFER 
13704 033332 LA: MOV RP RY T RPCS1’S ADDRESS 
Bap bs btaie4 0010 MOV eccrine SELECT IVE 
036066 004037 O4040E ISR RO; RD. RP AD C CYLINDER 
BSeo74 | baEeoe as. ERR RESS 
B3e07e BaSeps oo0012 CMP (SP)+, 12(R2) a ee Nt OVC ORDERSDESIRED 
102 001037 EMIT TE, No 
Be ibd 105261 033262 saat NT(RI1) : INCREMENT T THE LOOK AHEAD COUNT 
036110 Le613 033262 033340 cnPe LOENT IRI) MXLACT’ ; EXC ED nA Ke 
035126 re RES 900010 MOVB 18cre>, R3 IGET x Sector ADORESS AND 
1 303 SWAB jMULT. BY 64--ALIGN WITH 
03616 ASR RS ;LOOK AHEAD REGISTER 
O36 000340 177776 MOV #340, aaPS ;PRIORITY LEVEL "7" 
3132 040406 JSR RO, RO. RP :READ LOOK AD REGISTER 
036144 RPLA 
0361 36206 45 
0361 aBs80e S (SP)+,R3 ;CALCULATE THE DELTA 
036154 703 0026 ADD 8<22.#64.>,R3 MAKE THE DELTA POSITIVE 
036160 BB S703 REET 1S: CMP MXDLTA, R3 HE DELTA 
036164 e406 BLT 35 He + ig WITH 
36 166 703 033344 CMP MNOLTA,R3 NOOW- "TF 
036172 3 BGE ine 49 LOOK AHE Soft 
neoa ta £0206) 033262 2s: CLRB LACNT(R1) AKE THE 1/0 Nit 
720 TST (RO)+ 
036202 005720 3S: TST (RO)+ ;ADJUST THE RETURN ADDRESS 
036204 o0040e2 BR S$ 3£ 
036206 004737 oO35S22 4S: ISR PC,CI7 !PROCESS THE ERROR 
036212 o00200 Ss: RTS RO : RETURN 
; INTERRUPT SERVICE ROUTINE 
O36214 112737 000091 033250 ISR: MOV #1,ACTORY :SET “ACTIVE DRIVER” FLAG 
2 104412 SAVREG ‘SAve RO - RS 
0362 013704 033332 MOV RPADR, RY SS OF RHSCS1 
6 30 013701 023316 MOV DTUW, RI iger “DATA a tec RWAY" INDICATOR 
34 403 BLT i$ ANCH IF DAT TRANSFER UNDERWAY 
036236 004737 036260 JSR PC, TD tai TRANSFER 
036242 40 BR 2s sEXT 
036244 4737 oO26S42 1$: JSR PC, SC CALL SPECIAL CONDITIONS 
036250 104413 2g: RESREG IRESTORE RO - RS 


2% 


ta 
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I 
8211 036252 105037 033250 CLRB ACTORV ;CLEAR “ACTIVE ORIVER” FLAG 
ge! 036e56 o00002 RTI RETURN 
esis ; TRANSFER DONE ROUTINE 
1 05061 033174 TD: CLRB DRVACT(R1) ;SET DRIVE ACTIVE INDICATOR TO IDLE 
551 £551 177777 033316 " Ov a71,0TUM :NO DATA TRANSFERS UNDERWAY 
ig 1 177777 033276 MOV 8-1,TIMER(R1) | ;CANCEL TIMEOUT 
e231 poy hv 
1 3244 MOV T T,R2 ;GET * ADORE S FROM THE 
Be 3 ctR TRNSWT : ER WAI UE--CLEAR QUEUE 
62 oo oo000l16 s #B1T07,16(R2) SET ONE 
Se 4 10 MOV Ri, RPCSEC RY) ;SELECT HE DRIVE 
82 406 JSR *RD. : TRANSFER R(TRE=1)? 
=F RPCS1 
8227 CI7 
asses ROL (SP)+ 
Se BMI 3$ ; F YES 
8230 033272 rst SAVEFG : r -RHLI/RPOW/S/6 REGISTERS? 
Be 0750 ISR Be, SVRHII :Y “7 SAVE THE REGISTERS 
36434 1S: J PC, WC ; ITE CHECK TO BE PUT IN QUEUE 
1604 JSR PC’ GETREQ : POINTER 
Be TST ‘ENTRY IVE ? 
B23? 034412 BER 52 opr OE LF OPTIMIZER 
gs BR : ‘ERE CK THER Bet S 
8239 14 000113 2s: MOV #113, (RY) :RELEASE T I 
8240 57 BR *CHECK FOR OTHER DRIVES 
8241 62 100100 o00016 3s: BIS SBITIS'BITO6,16(R2) -SET A ERROR FLAG 
Be4e 004737 041510 JSR PC, EMPTYO sEMPTY THE “DRIVE’S WAIT” QUEUE 
8243 737 940750 JSR PC’ SVRHI h ; SAVE THE RH11/RPO4/S/6 REGISTERS 
8244 12714 O1ll MOV #40111, (RY) :ISSUE A “DRIV che 
824S 12714 000113 MOV #113, (RY) : ISSUE A REL O THE ORIVE 
Bee 43 BR SC :CHECK FOR OTHER ORIVES 
Bee ;FORCED WRITE CHECK ROUTINE 
8250 434 005737 001424 We: TST AUTOCK ;AUTOMATIC WRITE CHECKS ? 
8251 0364 1432 BEG :BR IF NOT 
Bebe 44 762 ooood2 of0024 CMPB #2, SCODE(R2) :LAS OPERAT ON WRITE DATA ? 
825 1404 BEQ BR iF WA 
Boos ube e7 oo00003 oc00024 CMPB #3, SCODE(R2) :CAST OPERAT ON WRITE HEADER 3 DATA ” 
Bese Se O36462 004037 041530 1S: eid RO, ORVQUE ‘BG THE OPERATION IN THE QUEUE 
B25 36 ey BR 2 ; QUEUE S FULL 
Be58 4 000016 CLR B(Re) ick * DONE’ BIT N DPB 
g 474 ii 000234 og0g27 MOVB Cc 1cRe) pSPRevd< ) ipave IT OPERATION CODE 
S560 so2 Ol 900012 4 MOV CYL(R2), $PREVA+2e (Re) ;SAVE CYL 
8261 510 Ol6262 000010 o0003e MOV SSEC (Re). SPREVA(R2) {SAVE SECTOR AND TRACK ADDRESSES 
Bebe 36516 1427 0000 go00e4 BICB #2, SCODE (Re) 3¢ ITE TO CHECK 
B26 g 4 1427 0000 00002 BIC #20,$COMND(R2) ;CHANGE DRIVER CODE TO WRITE CHECK _ 
Ge64 036532 152762 O00010 o00002 BISB #10;SCOMND(Re) FINISH CHANGING CODE TO WRITE CHECK 
Bebs 036549 000207 2s: RTS PC tEXIT 


SURRRRRRRERE 
RESSEPRARS DE 
Ones 


pause rece reeeeeeeru cial! 


PER RIAtTart 


SBIRR 
Rezeze 2 


ru 


coco com#DCcoO CaO CD coco 
a 


bat nt nt at Re RE 
= ee 
WONOWU CWO 
ae NNNN 
form K28R 


MoOwnwmnwm 
WWWWWW 
She 

fue 

000 

Ww 


o 
NNANN 


reo 


Kile 





6 mL T=DR LGC MACYI11 30(10% 6) 1S-DEC-77 11:03 PAGE 1S 
iS-DEC-77 16:56 SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1.0) 
;SPECIAL CONDITION ROUTINE 
000016 SC: MOVB RPAS(RY) RB oe RPDS. ay ‘aves peve wre 
O40406 ior ,RO.RP AD CONTROL AND STATUS REGISTER 
8 
ae (SP)+ it “IE"= Ro Barve 
pnt 1§ i YES a oH ck 
z ; ber en ILtEcat is pest 
041066 ft J R PC, SET. IE ; T ANTE 
33: eR -(SP) ; CE 5. ALL DRIVES THAT HAVE 
MOVE R3, (SP) :AN ™ 
— oe ORT’ 
SC3: IT Ra, (SP) sATA=12 
SC4: INC Ri MOVE 0 THE NEXT DRIVE 
sc3 ; MORE TO CHECK? 
ms i. RORSGHE HORE TRE 
033224 scs: Rete DPINT(R1) 1 ALT Ine” Sue DRIVE ? 
037520 She 13 ; ESS THE OR 
033234 1S: TSTe wey ide -PEQUE T bur TANDING ? 
75 C1 T T OUTST ING COMMAND 
05761 9335304 2s: TSTB Batetacr.) ;CHECK T Ore Re 
aa 033252 STB DFLG(R1) 
85 7 OLE PC, GETREG Pele MATE 
ae Ee EI By ay fa gy Oe 
‘ vB ORive SiAtT eRe MINS 
05761 033204 TS7B DRVSTACRI) :BYB ve ¢ 
é 48 040000 02323164 BI 8 IT14, RPERRS ;MAS T THE oft ERROR? 
137 037360 IMP Elle : 
Bb . 033166 3S: Mov S+2,RS $yeS aoe seth RPERI AND 
195761 033174 S$: rere SOACT CRI) ; DRIVE 8 rite COMMAND OR ERROR RECOVERY 7 
004737 037450 ISR PC,SC12 : SAVE RPOS1 RPERL, RPER2, AND RPER3 
erat Seem sae oer | Beg NT CRD) ar PvE CHECK ON. BORE DRIVES 
1B6ae 033204 TSTB RVSTACRI) :CHECK ON ORIVE’S STATUS 
9275 020000 033172 Bt #BIT13, RPERRS+6 ; DRES LUG CHANGED ” 
1911 BNE as :BR IF YES 
1274— 000113 MOY #113 =(SP) :RELEASE COMMAND 
604027 O405E2 ISR RO, WRT. :WRITE THE COMMAND INTO RPCSi 
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Soha iseore-7>" 15%Ss 3B Ae ouAL BEST Ow: Ei (REV 1.0) SEG CIS 
3 RPCSI Peal fr exe Te Rboee 
l 7$: ROV (SP), RS REORY ¢ reeset THE | RROR CALL 
i - Bre” Ecy fa: 
’ ERROR Sc Seen ¢ THE UG CHANGE 
SCb: ASL i ; ux oprives. 
63 033276 HOV #-1,TIMER(RI) ; eo 
3 JSR PC,  GETREG = rece hie iv 8 ROA THE QUEUE 
3 JSR RO’ RO “RB ; 5B Reow’s STATUS REG. 
RPOSI 
MOV (SP),RS me & PUT IT IN RS 
oh (SP)4 AN ERROR? 
en a i eae 
B43 T 1 ASP dF VES BETH R 
co0016 Is wel 15!B1707!B81TO3, 16(Re) R OF ERROR RECOVER COMPLETION 
1S: ioe RS RD.RP ; READ omen REGISTER #1 
sca 
34 MOV (SP)+ RS ;AND SAVE IT IN RS 
1 JSR Pp SVR i SAVE RHI 1 7RP (5/6 REGISTERS 
B35) MOV sili,-«SP) :ISSUE A DRIVE CLE 
711 JSR RO, WRT. RP 
st fart srs! 
8255 : SCéA: ROL i “UNSAFE” _ CONDITION =1? 
8308 i Tet é iBRancH TF IN” SueuE ? 
6358 135 000016 Bee #[risterrorverrés. ibires ; INFORM USER OF ERROR 
8 144 1S: ISR Ro. RD.RP ;READ DRIVE STATUS REG. #1 
ees eis sree! 
8364 Zieh Os HOV (SP) yR5 : SOV. RPOS1 IN RS 
366 1 100011 BPL 2 Ete “ho- “UNSAFE CLEARED 
B3e8 0371 S737 duareg 229204 More | opcleURMTT Grave 1S oktaee. REGISTERS 
8369 2 74 7 110000 op0016 Is {TiSt81T12, 16(Re) ; INFORM USER OF UNSAFE ERROR 
af ‘ 7G 010000 2s: BIT 4B1T12,RS spo st ? 
837 7 112761 427777 033174 MOV #-1,DRVACT(R1) ACTIVE ERROR RECOVER 
te A Abe7et 01 033204 hg #1,ORVSTACR1) ONLI 
£376 0378 b1e761 072460 033276 MOV #30000. ,TIMER(R1) ;START 30 SECOND TIMER 
837 37¢ Ob2 1 ASR Ri 
&37@ 637240 000137 036612 IMP sc4 
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SEG 0155 
; INFORM USER OF ERROR 


el alaalt ve fg IDLE 
fe oF Gtr? Wren SS OR QUEUE” 
BtThay (RI) reas ci) TTEN BIT 
Bavstachi” 31 ee TERTION, 
’ 
Ro taAT RP Bite ane COMMAND INTO RPCSI 
BELL it none oe 
BRVACT (RI) is se — 
; 
Begs BERND e cms 
C178 ‘seus THE Us CORRECTABLE PARITY ERROR 
SeSruccn ieee iN ee 
DFLG(R1) 
rat we ito A TOE ARCH OPERATION FOR 
25 w HE MEEy ro 
Cc, POPQUE :BPnoy VE REQUEST FROM QUEUE 
gEEPG TERS? Bale WO nce Sens? 
aYeeY TAL», aia aS eitherat ial THE & RHEL /RPO4/S/6 REG’S 
sca : gue ECK "8a DRIVES 
RPO (RM) Re sd THE FOUR REGISTERS THAT 
1 (Ra)! RPE +2 ‘WILL TELL U SOMETHING 
Ree I mwEnnEs¢ 
RO, VINT’ NIT. THE STATE OF THE ORIVE 
I ineTugr EXI 
(SP )+ PC OFF OF THE STACK 
sce +O eee THE PARI m ERROR 
fi’: , TIMER(RIL) ro ARER 
R1,R 


Seth aad reed ThE YATTENTION BIT 
1s AVAILABLE 


#10000.,TIMER(R1) ;START 10 SEC TIMER AGAIN 


N12 
EFRIBESPal Tseoet-77 ibsse SY tcomtaplerh "Anil 7aPO4/S/6 DRIVER (REV 1.00 Seo 0156 







sEXIT 
1S: a INT(RI) ; RIT ZAL IZING THE ORIVE ? 
a: y ALY ; Ae Y THe NIT INDICATOR 
4 JSR DRVINT :GO IN rt y EARS oxnan 
1318 TACRI) ; IVE ac . 
es ; “te Ao RY at, BRIVE 
8 
000016 ais te Teeri4, tte ” ort OES BIHAT DRIVE OFFLINE 
oR Svan Save! THE ERS QUEUE 
2s: CLRB QS RI) THE ar REQUEST ICATOR 
Th T NDING REQUEST. 
“ 3S: ise Bei oP €SS OTHER ORIVES 
56 jRPON/S/6 TIMER ROUTINE 
58 ; MOV sTIME,-(SP) ; D TIME IN MILLISECONDS ON THE STACK 
3 ; ISR be RPtHR i EL APP EPO fe NINE ROUTINE . 
RPTMR: rst TORV fai) Ry SERB V § ACTSTR™ 
3 033251 nove . #1,ACTSTR 
S LR & BONE ae a) 
Bue? 1S: rst TIMER(R3) ;1S THE TIMER RUNNING? 
4 033276 SU (SP), TIMER(R3) iC NT THE oANTERVA 
G : IF NO'S fr imeout 
7 SR ,STO > CALL TWARE WORE OUT ROUT INE 
7 BR :GO TO THE EXIT 
33 2s: NC _ ;MOVE TO NEXT DRIVE 
75 CHP oli QUT OF ENG 
38 3S: RESREG ;RESTORE RO 
B78 CLRB ACTST i ZERO ACTIVE “SOF THARE TIMEOUT ROUTINE FLAG 
4S: MOV CSpyee (SP) sADJUST THE STAC 
B4g0 RTS PC : RETURN 
Be ;SOFTWARE TIMEOUT ROUTINE 
2 tNOTE: THIS (Routine MUST BE ENTERED AT PRIORITY 6 
4 
48 :CALL: STO 
se RE geet BRUNE Mane 
£496 RETURN . 
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STO: MOV Bh -(e} 


MOV 
HOY EB 


a eioness of “RPCS1” 
g 


“DRIVE St htus REG” 


P22e 
NFR 





Ee ae 
Ss (SP)+ ; spRYe 
762 : pees 
ests STOL: STB INT(R1) te 0 INTIALIZE THE ORIVE ” 
B08 STB (RL) Ou mpi PORT REQUEST FOR THE ORIVE 7 
ey } R WAIT QUEUE 
9506 CMP i pNSuT Re : nA Y ON THIS DRIVE? 
Eas e82 ry 
eR c00 FE BerO82Etros, ech 
O16 18: BI a 16¢ FLAGS 
i0 J Save aig ag Th GISTERS 
8Sil 000010 MOV att set TS) Re RPCS2(R4)" 
B25 et RB eraeeteh lk FLAG 
e514 CLR START Tie URL Ono F 
8515 CLR R 
B518 2s: ISR syogev iNT NIT. Hl Is DRIVE 
B18 o isT8 Bev T(RL) R RETURN INIT. ? 
8520 i MOV T T, Re a 
8521 110 : che DTUW, Ri : a: ON TRE Ee rve? 
e523 s§ aati 395 oss605 5R a Ge 9 : Ai 6 POIN TER FR FROM QUEUE 
1 000016 35: BIS tTIS!61ToOs, 16¢ 
B5eS 040130 i 1 eet CLRS Vv } VE TO Me 
Beet 134 4S: CLRB  -ULDFLG(R!) 
140 i 033276 MOV 8-1, TIMER(R3) He TIME 
130 2 i Ine Ri ; HINCRER Ni Tie Ba Bex 
e550 ouol 1 oo00i0 cre a8. .R! ;LAS BST OR VE BEEN” ANEcKEDS 
9532 ey 12737 177777 033316 MOV 8-1, OTUW :NO DATA TRANSFERS UNDERWAY 
85. ibe 37 033244 CLR TRNSWT ?CLEAR TRANSFER WAIT QUEUE 
8534 ou017 237 1432 ISF PC. CLRQUE :CLEAR ALL REGUEST GUELES 
BS3S 040176 O00S BR T ‘EXIT 
2536 O40200 116405 on0016 S102: MOVB  RPAS(RY *READ ATTENTION REG 
8537 pudeo4 136105 633320 BITE RABrTcRi R5 j 1S ATTENTION FOR THIS DRIVE UP * 
8538 ig 001017 BNE STO : YES--BR 
9539 le 1 re 033224 TSTB PINT(Ri? ; TRY NG TO INT TAOLIZE THE DRIVE ? 
B549 i 1031 @NE BR YES NE 
BS4i baosee 105761 033234 TSTB DPRQS(R1) ;QUT T NG PORT REQUEST FOR THE DRIVE ? 
Bsie Ed i BNE TO Be IF YES - NO RESPONSE TO S 
B54 pipes gi 37 033316 CHE Rl ,OTUW ATA TRANSFER UNDERWAY FOR THIS ORIVE 
ee | 
BS45 O4ces4 S408? O4O4OE ISK RO, RO. RP 1 ae “ROY" 
B54e O40e50 d00000 RPCS! 
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47 

S23 #98 (SP4 inate 

Bec¢ 033224 STO3: ic Reeder) Hn ia 12NG THE DRIVE ” 

Bsee 033234 oe @S(R1) ‘Bort re ddest READING 7 

Bc BEO ST09 :BR IF NOT 

go54 177777 033276 1S: MOV 8-1 TIMER(R3) i108 THE TIMER 

Bs 035622 STOS: ier Pc, c18 :GO HANDLE THE PARITY ERROR 

BS 033224 STOb: CLRB DPINT (RL) ; CLEAR THE ie 7 INDICATOR 

g2E3 177927 033276 Rov Brig TIMER(RD) Di ia 

pss me Re Heit irae 

8564 140000 o00016 BIS agITiS!SIT14, asl - INFORM THE USER DRIVE NOT AVAILABLE 
177777 033276 ST07: MOV a- 106 | IMER(R3) THE TIMER 

8567 033234 CLRB peRGS(RI) ; aa Lav FE on INDICATOR 

e3es at OR : DRIVE * 

B57 490008 005016 MOV Irisieite, 1ecRe. inronr ER OF PORT REQUEST ERROR 

1510 stos: JSR SEMPTY CLE THE DRIVE 

8573 040750 JSR PC SVRHLi ch THE "REGISTERS. 

8574 STOS: MOV (SP)+,R Ee ORE RS 

8575 MOV (SP)+'R1 STOR 

8576 RTS Ta 

8578 ROUTINE TO READ A RHLL/RPON/S/& REGISTER 

E80 ; 

3 Fi, RO-RO-RP SB, REARS ERSTE 

B58. ; ERRAOR ign a8 =-PROCESS ERROR STARTING 

Bses : RETURN :CONTENTS OF REG. IS GN THE STACK 

8587 O40406 013737 033330 OYOSSO RD.RP: MOV MCPEMX,RD.RP2 ;MAX. TRY ee 

gee abe 013739 933332 ON043e NOV ReAOR -ls Apr i pave RO 

8280 5230 7 4 ADD (RO)+:RD. ADR SING. the NDEX 

8591 Daoaa 013727 MOV a(PC)+, (PC)+ ?READ THE ies ware OF THE RPOY 

Bs Ree BS: HB ROSE dentoTELY ee 

8594 O40436 013766 040434 ocD0002 MOV RD.WRD, 2(SP) :RETURN IT TO THE olSER 

es 33332- MOV RPADR, ~(SP) ;PUT THE S ON THE STACK 

8s 71g 1 AD sRPCS2, (SP) iF THE SS _OF RPCS2 

8597 O40454 7 10000 BI #BlTle.a(SP)+ CHECK THE 'NE T 

8596 BuO4ed 001036 BNE RD. A+ i i BR abt apRive NON-EXISTENT 

e599 O462 017746 172644 MOV @RPADR, -( SP) RE cS1 

8600 O40466 032716 O20000 BIT #B1T13, (SP) :DID MCPE SET? 

8601 O4O0472 001002 BNE !BRANCH IF_YES 

SE02 O40474 O22620 CMP 3p) 4, (ROD+ :ADJUST FOR RETURN 
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SINGLE/DUAL PORT RHI RPOY/S/E DRIVER (REY 1.0) 
is BR RD. RP ;EXIT 
RROR 2 faba “MCPE” ERROR 
ST bru :DATA TRANSF R UNDERWAY? 
By B1T14, (SP) -- pul 
Fe? (SP)+ ae F THe TACK AND 
R ROD. RPS EXIT 
2g: Is wB1T14, (SP) ee NOING A "i" TO “TRE” 
WAB (SP) TT ION 
nov R ADR, 3$ ES Mel Te 
MO (SP)+,a(PC)+ WRITE THE HIGH BYTE OF RPCS1 
xs; fp sor ate 
DEC (PC)+ EXCE Bep MAX. RETRYS 
RD.RP2: .WORD 
BGE é ena IF NO 
RD.RP3: MOV (RO), RO tFATAL ERROR EXIT 
MOV (SP)4+, (SP) 
RO.RP4Y: RTS RO 
;ROUTINE TO WRITE A REGISTER 
, CALL 
; MOV DATA, -(SP) ;DATA TO BE LOADED ON THE STACK 
; JSR RO, WRT. RP :CALL THE ROUTINE TO LOAD(WRITE) THE REG 
: INDEX ; INDEX THE REGISTER TO BE LOADED 
; RRADR ; SS TO RETURN TO ON AN ERROR 
: RETURN tERROR FREE RETURN 
WRT. RP: MOV BOPENK, We WRT.R2 ;MAX RETRYS ALLOWED 
MOV 2¢ T.WD : SAVE HE a WRITE 
MOV (SP)+ (SP) ; ADJUST HE 
MOV (RO)+) WRT. AD ; GET NDE X REGISTER TO BE WRITTEN 
BNE 1$ H IF NOT RPCS1 
CMPB #150, WRT. WO : c FOR DATA TRANSFERS” 
BLT 1$ ; YES-~ a Alb & Al? & PSEL 
JSR RO,RD.RP :NO---COMBINE A163 3 & PSEL_ WITH 
RPCS1 THE Cc NO BEFORE Zenbits Iv To 
WRT .R cams :THE RH11/RPO4 
BIC #tC7, (SP) 
MOVB (SP)+, WRT. WD+1 
1$: ADD RPADR, WRT. AD ;FORM THE ADDRESS OF THE DISK REG. 
WRT.R1: MOV (PC) +; a(PC)+ iL THE DESIRED REG. 
WRT.WO: .WORD O :WORD TO WRITE GOES HERE 
WRT.AD: .WORD QO tADDRESS IS FORMED HERE 
MOV RPADR, -(SP) :P c" POOR S ON THE STACK 
ADD sRPCS2, (SP) ;FORM TH HE DRESS OF RPCS2 
BIT @BITle,a(SP)+  ;CHE NED. BIT 
BNE WRT .R3 BR f Drive NON-EXISTENT 
JSR RO, RD. RP ? CHECK ARITY ERROR ON WRITE 
RPERL 
WRT .R3 
BIT #BIT03, (SP)+ 
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1$: é 0 
Bees une R, ne? Ve THI ROORESS On N ERROR 
8664 O78 0750 ERROR 4 :REPORT THE TPaRITY E ERROR 
BEES DEC (PC)+ : DECRE ERROR Cc 

5B 7 WRT.R2@: .WORD 3 SRETRY BUN TE 

866 WRT.R1 ; TRY AGAIN Ny NOT £1 FINISHED 
8668 ? 330 Ss (SPj}+ :CLEAN OFF 
Be69 0740 011000 WRT.R3: MOV (RO),.RO ; TAK THE “PARITY ON WRITE” ERROR EXIT 
86 074, Ol WRT .RS xI 
8671 0744 720 WRT.RY: TST (RO)+ i ROJUST FOR ERROR FREE EXIT 
B676 040746 00 WRT.RS: RTS RO 
Bers ;ROUTINE TO SAVE THE RH11/RPO4/S/6 REGISTERS AS PER OPB+14 
8676 > CALL 
86 : MOV sOPBNUM, R2 pee POINTER TO R2 
8678 : JSR PC, SVRH11 SAVE THE DRIVES REG’S 
8680 750 104412 SVRH11: SAVREG ;SA - RS 
8681 Ougree 905702 TST Re :QuEbE ENTE RO TRY FOR THE ORIVE ” 
BBS 040756 013704 033338 MOV RPADR 
BE84 O76e 111264 0010 MOVB (R2) BOR Beso (RY) ;SELECT DRIVE 
868S 040766 016203 000014 MOV 4(R2),R3 :GET THE ERROR TABLE POINTER 
8686 040772 433 b¢ :EXIT NO ADDRESS 
8687 774 37 041030 CL 3$ COUNTER & POINTER 
Se 86 041000 $787 041030 ooo0ze 1S: cre 38, #RPOB ;REACHED THE BUFFER REGISTER ? 
Boao o41010 Oae7e4 o00200 900010 Bit s81T07, ,RPCS2(RY)" ©, "OR" SET ? 
8692 O410e0 005023 CLR (a3)+ ; STORE RPDB AS ZEROES 
8693 041022 os BR : CONT INUE 
8694 041024 037 o40406 2s ISR RO, RD. RP ; READ THE SELECTED REGISTER 
BE9S 041030 3$ WORD O :REG STER INDEX 
BE96 1032 O410S6 s$ i ERROR TURN ADDRESS 
8697 O41034 012623 MOV (SP) (R3)+ : STORE THe REGISTER CONTENTS 
8698 041036 3727 041030 oO0d4e 4S: CMP , BRPEC :REACHED THE END ? 
8699 041044 001406 BEQ 23° :BR IF YES 
8700 O41 062737 oo00002 9041030 ADD #2, 35 : INCREMENT THE REGISTER INDEX 
8701 O410S4 900751 BR CONTINUE READING THE REGISTERS 
8702 O41056 004737 o3S5S22 S$: ISR PC,CI7 PROCESS THE UNCORRECTABLE PARITY ERROR 
8703 O4106e 104413 6S: RESREG ?RESTORE RO - RS 
8704 041064 000207 RTS PC : RETURN 
B706 ; ROUT INE TO SET THE INTERRUPT WITHOUT GETTING A “TRE” 
87 : MOV #ORVNUM, R1 ;DRIVE NUMBER TO R1 
£709 : JSR PC,SET.tE :SET “IE” 
B710 : RETURN 
8712 CY4I0BE O1044E SET. IE: MOV RY, -(SP) ;SAVE RY 
8713 041070 013704 033332 MOV RPADR, RY :PICKUP ADDRESS OF RPCS1 
8714 043074 O101€4 O00010 MOV R1,RPCS2(R4) :SELECT DRIVE 
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WORD 
; QUEUE OUTPUT POINTERS 
ee 
ss 
WO 
WORD 
WOR 
WORE 
WO 
ORD 
HOR 
WORD 
WORD 
WORD 
ORIVE REQUEST GUEUES 
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;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES 


:CALL 
; ISR PC, CLRGUE 
CLRQUE: SAVREG ;SAVE RO - RS 
MOV BOCNT, Re : ZERO T UE COUNTS 
CLR (Re) ;ORIVES 1 
CLR (Re)+ sBR Ss & 2 
CLR (R2)+ $ 48 
CLR (Re)+ : DRIVE uf ? 
MOV #8. R3 ;MO TARTING 
MOV sQSTART,.R1 : ESS THE QUEUE INTO 
1$: pec gages :T INPUT POINTER 
l 
1 
MOV #8. .R3 ;MOVE THE STARTING ADDRESS 
MOV sQStaART,.R! [OF THE INTO THE 
2¢: MOV (R1)+, (Re)+ :;GUEUE OUT POINTER 
DEC Rg 
BNE @ 
RESREG ;RESTORE RO - RS 
RIS PC 
:EMPTY THE QUEUE SPECIFIED BY R1 
> CALL 
: MOV DRVNUM, R1 ;DRIVE NUMBER TO R1 
; JSR PC, EMPTYO 
EMPTYQ: cLRB OCNT(R1) ;CLEAR NUMBER OF ITEMS IN QUEUE 
HOY QINPT (RI), GOUTPT(RI ) ;SET OUTPUT QUEUE POINTER=INPUT POINTER 
RTS PC 


;ROUTINE TO PUT A REQUEST IN QUEUE 


> CALL 


: MOV sORVNUM,R1 

: MOV sOPB, Re 

; JSR RO, ORVGUE 

; RETURNI 

; RETURN2 

ORYGUE: CMPB #10,QCNT(R1) 


;ORIVE NUMBER 
;ADORESS OF PARAMETER ocx 
; IN QUE 


S FULL 
;RETURN HERE IF REGUEST IS IN GUELE 
:I1S QUEUE FULL” 


SES Olte 
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1 421 Q ; F YES-TAKE RETURN! 
Bes8 bui5s6 i 041140 NCB Genres i PACREMENT QUEUE COUNT 
1 10271 MOV - INPT (RL) THIS RE N 
Ge RIES BOE BEEP ovis GB RUSTAR) CoOaTe ROR BSH 
1 161 il 121 cme QIAP CRI). QSToPcAl) ; ;TIME O RESET THE POINTER 
8833 1566 1003 BNE A$ 
BE i 16161 O41210 O41150 - MOV _ Mae LQINPTI 1) YE --RESET POINTER 
56 1 ; TST (RO)+ sane RET 
B83? i 2s: RTS RO Te USER 
8839 ;ROUTINE TO GET THE “DPB” ueaee OF NEXT REQUEST IN QUEUE 
4 > CALL 
4 : MOV sORVNUM, R1 ORIVE NUMBER TO RI 
9843 ; JOR ey PC, GETREG 86 GET THE REQUEST edt exeneiil 
Bes : i R= OF NOORESUES? I NGuEUE” 
Bad? 1 oosoo2 GETREG: CLR Re 
Beye 160 106761 041140 rere QCNT(RL) ;IS T RE ANY REQUEST IN QUEUE? 
Seed 1614 aed 1 1S: ASL Ri ‘ 
BeS1 Buigae Beso 041170 nov GOOUTPT(R1), RZ ;PICKUP “DPB” POINTER FOR THIS DRIVE 
Bee3 1 § 4 2s: ? ;RETURN TO USER 
Bess ;ROUTINE TO “POP” THE REQUEST FROM QUEUE 
oeee CALL MOV #sORVN Rl IVE NUM OR 
Bee6 : JSR pe Re OPOUE spRiY TO EGE ERE QUEST 
8860 ; RETURN :R2sADDRESS OF DPB REMOVED 
Bebe O41 626 495361 041140 POPGUE: DECB QCNT(RI? ;DECREMENT QUEUE COUNT 
8864 041634 017102 041170 MOV JQOUTPT(R1),R2 sGET I THE neo POINTER 
8865 1640 062761 0000 041170 ADD $5 QOUTP PT(RIL) Ine. evReser tne 
BBE 041646 Gee 181 041170 O4121e2 CMP 9 bj (RL) ,aSToPtRi) Ime T HE CR OINTER? 
886 1654 1003 BNE NCH TO EXIT 
bees Bale é Biede | 041210 041170 me mov rere. aaktur, ROES -RESET THE POINTER 
cs 41666 - ¢ RTS ;RETURN TO USER 
ser 
2a 5 RR RREERARRRREE EE REEE RTE ES RE RERE SARE RRARER EE RA REAR EERE RR ER TET EL 
4 .SBTTL DATA, CONTROL, 8 STATUS BLOCKS 
+ ted 5 EERRERREAE ERP EERELERE REE ELSE ASRS EREAEERASRERARE RARE RARER EEE EEE 
é 
5873 ;BLOCK LOCATION EQUATE STATEMENTS 
See 90000: SFMT = i ;FMT,HCI,ECI OR OFFSET COCE 
eege elstelerer $COMND = SFMT +i : OPERATION CODE 


ODDODOOW 


aietatett tte etetatel 
LW OWONOWM Flt OW 


0000 


co 
wo 


ee a rg at vhet ath ot { 
ONMUN Z tomo OW NO 


coq co. coco coco cOWD 
0.0.0.0 000.000 


113 
Be TP Fe ore IAPR bees MACY SBLERM Lontor, 8 statis Blocks: seo cits 
L 


o0cI03 sab = sents ;PORT SELECT & BITS p16, Al? 
= . OmP 

900008 ta = SFMT+ + BUFFER BODR Sp GISTER TABLE POINTER 

90081 SEC = FMT+ : SECTOR Ss T 

B00012 CYL = crete CYL INDE _ 

900014 $e = SFMT+1 j REGISTER TORAGE (IF oBRROR 

900016 TATUS = SFMT+1 ; STATUS RokD (SET BY DRIVER) 


;ORIVE’S HISTORY AND CURRENT INDICATOR STORAGE EQUATES 


ee Hee ts Heeeatr igre GORY eSSTI™ 
g000e¢ PACK OL +6 WR 3 bay PACK aE cat on 

00002 SPREVO OL+ ‘PREVIOUS COMMAND SELECTION CODE 
9000 SPATTC +10 :PATTERN C 


abbRESS - TRACK, SECTOR, CYLINDER 
Meat 


R*~ZS 


ee 
3% 
foe 
ana 


00: TR +26 ; TS XFERED COUNT (R 8 W) 
ooo0se READ +3e ;TOTAL BITS READ COUNT 
00) TOTAL a ; TOT RR (ALL_TYPES) COUNT 
00! SOFT +4 3°SOFT® COUNT 
Obe ee se ; HARD’ ERROR C 
4 SKI +44 ;*SKI’ *OCYL’ OR 
0&6 SMISPO SWROL +46 ;PROG DETECTED MISPOSITIONING ERROR S COUNT 
909070 SPASSC peel 2s sPaee QUNTER 
SFAIR WRDL +Se ; OPERATION UE *FAIRNESS* COUNT 
; INDEX EQUATES TO THE NEXT OPERATION PARAMETERS 
090074 NCO! = OL +S4 i NEXT SPERATION CODE 
000075 NPATC = NC 33 ; NEXT TERN 
00067’ SNSEC = NCODE+ ;NEXT SECTOR 
00007 SNTRK = SNCODE+3 ;NEXT TRACK 
000100 S$NCYL = SNCODE+4 ; NEXT cvL ANDER 
000102 : = SNCODE+6 ; NEXT E 5126 
0104 NEX = SNCODE+10 ; PAR ER SELECTION INDICATOR 
; INDEX EQUATES FOR MAXIMUM/MINIMUM ADDRESSES 
000106 MAXCYL = SNCODE+12 ; MAXIMUM GVL ENDER ADDRESS 
000110 MINCYL = MAXCY!_+ ; MINIMUM 8 R ADDRESS 
0001 le MAXTRK = MAXCYL +4 ;MAXIMUM TRACK ADDRESS 
000114 MINTRK = MAXCYL +6 ;MINIMUM TRACK ADDRE 
900116 XSEC = MAXCYL+10 ;MAXIMUM SECTOR ADORESS 
009120 MINSEC = MAXCYL+le ;MINIMUM SECTOR ADDRESS 
o00lee SFIRST = MAXCYL+14 ;FIRST OPERATION INDICATOR 
;BAD SECTOR’TRACK ADDRESS STORAGE ARER INDEX EQUATE 
oodie4 SBOSEC = MAXCYL+16 ;BAD SECTOR STORAGE TABLE 


;ORIVE ID AREA INDEX EQUATE 


J1i3 
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is-DEC- DATA, CONTROL, 8 STA 
£333 oo0224 SORVID = S$BDSEC+100 DRIVE ID 
;RH11/RPO4/S/6 REGISTER EQUATES 
900224 RPCSI = D+10 ;RPOY REGISTER STORAGE 
5 OS RPC = 142 
S = RPCS1+4 
= 146 
gu; 44 RPCS2 = 141 
Sug si i+] 
pace A RPAS. feitie 
s 
Bae 4 RPL = 1326 
= l1+¢22 
3c = le 
gsts T = CcS1+ 
S965 0264 RPSN = 1+ 
8 oF os 1+ 
B57 RPCA = is 
8ge9 pops oa SRPERe = ceisa 
= 
$363 O76 SRrens = 12 
= 
a bel: Baise 
8964 
8965 BLOCK FOR DRIVE 0 
B9e 1670 000 ~=—ond DRIVEO: .BYTE 0,0 SDRIVE NUMBER 
e968 Buiese ooonss ‘oie 
041709 42124 "WORD © - #$RPCS1-SREG 
370 041706 O00ebe "BLKG  $RPECS-SREG 
é 
Bq>3 
8373 BLOCK FOR DRIVE 1 
8975 ONeI7y 901 000 DRIVEL: .BYTE 1,0 DRIVE NUMBER 
8976 045176 GOOD “BLK 
8977 Oee16 042430 “HORD © - +$RPCS1-SREG 
sore OMecle O00zbe "BLKB $RPECS-SREG 
6980 
6361 :BLOCK FOR DRIVE 2 
5 wesc 900 DRIVE2: .BYTE 2,0 DRIVE NUMBER 
Basu Busene ooonse ‘on |OS 
6985 042514 942734 "WORD - #$RPCS1-SREG 
e366 042516 “BLKB  $RPECZ-SREG 
98 
966 
e389 BLOCK FOR DRIVE 3 
699 o4 5 900 ORIVE3: .BYTE 3,0 DRIVE NUMBER 
Beas | Susboe g008 ° 4 tt 
8993 043020 O43240 "WORD © - #$RPCS1-SREG 
£994 O43022 OOdSEE "BLKB 4» SRPECS-SREG 


if 


I & 


SASSERESES 


O00 NICU £ Wuftue 2: 


Seu 


BSssssss 
Poston SALT 


222? 


rarer 
REVS 


Peer a hoe 
po 000 
ert 
O00266 
ned 0005 
0266 
one 000 
roger 
007 006 
Recuee ooccco 
ooocoo ooooo0 
000000 
000024 
O44122 O30461 
Behg7e Banceo 
les O4eS16 
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177774 
044750 


050130 


DATA, CONTROL, & STATUS BLOCKS 


;BLOCK FOR DRIVE 4 
DRIVE4: qe 4,0 .  3ORIVE NUMBER 


; . +$RPCS1-GREG 
BCKB SRPECO-S$REG 


;BLOCK FOR DRIVE S 


DRIVES: - BYTE g.0 ;DRIVE NUMBER 
:WORD .+$RPCS1-SREG 
-BLKB S$RPEC2-SREG 


;BLOCK FOR DRIVE & 


DRIVES: .BYTE 6,0 ;DRIVE NUMBER 
“WORD . +$RPCS1-SREG 
SRPECE-SREG 


;BLOCK FOR DRIVE 7 


DRIVE?: - BYTE 7,0 ;DRIVE NUMBER 
[WORD .+$RPCS1-SREG 
:BLKB EC2-SREG 


;GENERAL PURPOSE DPB - USED BY *READHD’, "RECALT’, ‘OFFSET’,&*RTNCTR* 
GENDPB: .WORD 0O,0,-4,CYLDER 

-WORD O,0,GENREG,O 
GENREG: .BLKW 24 ;REGISTER STORAGE IF ERROR 
5 ERR AEE ERE R EER RE EERE E REE RE EEE EEE 
-SBTTL ERROR MESSAGES 
5p RRRRA EERE SERRA EERE ER AEEE ERE E REE EERE EER EER RE RE RER EE EEE EERE 
EMI: -ASCIZ /RH11 INTERRUPT OCCURRED (RPAS = 0)/ 


EMe: -ASCIZ /UNEXPECTED ATTENTION OCCURRED’ 


SEG ClbE 


L13 
ESRIBE-P1l Seoet-7) ubsse |"! BRADR nesdAces | ‘US PAGE 188 so 0167 


iB Gases Feels 
lige O42108 
b48 op abe EN3: .ASCIZ /MASSBUS PARITY ERROR (MCPE=1)/ 
By el Re 
£38 


6 EM4: -ASCIZ /MASSBUS PARITY ERROR (PAR=1)/ 


Foate~ Su®od 





ee pe pe pe 


eee 
ne 

aoe 

BRRRR 

awe 


30 14 19 11 EMS: -ASCIZ /ADORESS PLUG CHANGE BIT SET/ 
307 cs 1 
rs Rese Bure Bele Baris 
3074 1 
3075 
an78 122 j O EME: -ASCIZ /RH11 DION’T RESPOND TO ADDRESSING 
er peers § foie 
3075 104 0440 
$081 BFiit 159 = 
3085 a pees piss EmiC: -ASCIZ /UNCORRECTABLE MASSBUS PARITY ERROR’ 
3085S 1 
oo feed bee ap oe) 
pes O4e3¢5 1l Be1ti? 000 
1 1 101 EMi1: -ASCIZ /FATAL MASSBUS PARITY ERROR’ 

Se BES oll OIG ptIOL 

5370 051525 1101 
sas Bisich Beelsh abias UC 
3095 
nee 410 O4 1See pe kals EMie: -ASCIZ /PERSISTENT DEVICE UNSAFE/ 

416 16 040 
9098 454 1 1 0105 
02, 4 1 5 Baeebe 
3104 ae 17 5929 22 EM13 ASCIZ /OPERATION NOT COMPLETED WITHIN TIME LIMIT 

: ‘ 4 # 

3ib8 aug ueay 64 1] 64 56 
$104 S4s4 2117 4730 46S be 
9155 o4S462 bied CSel el 
9106 O46470 OCES3440 352111 dO44510 


SEG 0168 


63 
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EMIS 
Eme0: 
Emel 


Osstii 
Babies EM14: 
ifi 
oe 
gese3 
1105 
2440 
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Th 
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7See 
105 
113 
5 
Be 


EmMe4 
EMeS: 


wumro rut 
a ou—- 
oh ee saa ate a) 


aos eae Baeee 
be 
‘GEES te me 
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ee ee ee a aa ara ala a a at al ala a ata at ay at at ay at ay at a 


ty a 
7 a om 
w 2 iw 
= fe , ho ae 
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3 S Sai 
am ae i ae 
i . Rite § 
™ .*) YO an bi 
ts eee ae 
3 ar a et 
See g eA g 
¥y = ne a fe SB te 
ie Booey os eae a: a a 
eet x 2 2 
“eee POR Ee id F w 
& « Yo - - ge 4 
i Se OR Rei - BS Wiey @ 
cee. $32 § a ui @ 
X\ 2. ps -, |. ae ‘XN ve .). eee 
aie Dee ea wear N N N 
ee BA St Be : ... ‘g-9 

‘ iS 

Ww 

aa 


esi 
71 

1 
bei8ie 
1 
iol 
iii? 
Bie 
051105 

i 
T 
Bie 


SEG 0169 


N13 


eat ee Et mors BUTS eA? Meta POSE 170 
il 
1 
1 
210 
1 
1117 


-ASCIZ /HEADER COMPARE ('HCE’) ERROR/ 
“OPERATION INCOMPLETE (’ OPI") ERROR/ 


-ASCIZ /FORMAT ERROR (’FER’)/ 


-ASCIZ /PARITY (*PAR’) ERROR AFTER OPERATION STARTED/ 


-ASCIZ /WRITE CLOCK FAILURE (’WCF’) ERROR/ 


-ASCIZ /MISCELLANEOUS DRIVE ERROR’ 
-ASCIZ /DRIVE TIMING (’OTE’) ERROR’ 
-ASCIZ /INVALIO ADDRESS ("IAE’) ERROR/ 


-ASCIZ 


EM2e7 
3 EM30: 
EM31 


EM33 
EM34: 
4 EM3S 


cals oe wer 
“‘eERE Tae 
ss On 


BESSGBSL NNT RE RANE MRS BERANE RRO PER NIELS RES Az 


1117 
7 puveee EM26 
4 os : 
i 
+ EM32 
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SEG C175 


LGC 
Tsepet-7> 10:Se 


il 


- 


JOCO, RPOY’S’& MLT- 
JOC 


C 
Cc 


/DATA CHECK (*DCK*) SET DURING WRITE CHECK COMMAND, 
“/RH11 OR UNIBUS TRANSFER ERROR,’ 


-ASCIZ /WRITE LOCK (‘WLE’) ERROR’ 


fa ™ 
~ yee 
oO Yo 
Ww w 
a z 
8 t Oo 
™ 
E rE z 
Lvvy [vvy Ww 
gor =MMT OF MN rt #5 
| Se O--t “4 _ 
- _ ee eel 
vT- io etet 


i 


iiee 


re. -_ 2 wUNw- 
“i “4 Zz 


COBO T OR BEI AT a Be 
RRNNMURAANAUN NYY 


4 


“BUS ADDRESS OR WORD COUNT INCORRECT 


-ASCIZ 


EM41: 


ink 


.r.wm 
== 


Re 


SoPN2% 


ede cm Kom) 


22088 
Re 


nw 


/DATA COMPARE ERRORS - NO OTHER ERROR(S? DETECTED/ 


-ASCIZ 


28 


eed dg Hd 


= SS 
— 


208 ma 2 
Sinn pare 


ses eeceetnncucbinnann ty 


‘CAN'T MATCH DATA READ WITH A PATTERN” 


> 
< 


I 


-ASC 


124 =EM43: 


BUT NO ERROR SIGNALED BY THE RHil~ 


SET, 


“ERROR BIT!S) 


Rueaess “SERS 


545558 


S8SSs 
S28R82, 


C --4-4~4 


SeNSaee BRSEE” 


G0054484 G44454 


O-wms 
WS 


RAUNT 


SEG C17. 
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ebiy iseoet-7) 10°88 


C2RI 
CZRs 


Zo 


a8 


ECC LOGIC FAILURE - POSITION REGISTER VALUE TOO LARGE’ 


-ASCIZ 


EMMYS: 


CU OM) —<t- 
—-UO--9 


co kam ieoml 


BeRwesS 


see 
“ 
~“ 


“ar 


RRSLBS 


arta 
K.R.ERLK 


/BUS RDORESS AND WORD COUNT NOT CONSISTENT/ 


-ASCIZ 


EM4E: 


OMOMwoOwOwD 
geaaae 
ae 
—! 
see 
NEON 
veaies 


554 5524654444 64644444 56444644444 554444 4554 


/SEEK INCOMPLETE <°SKI’} OR OFF CYLINDER ‘’OCYL*) ERROR.’ 


-ASCIZ 


113° EMSO: 
O45 


Nanton 
~ TT 


Zaeeue 


SAPeRNR 988738 


KRAKRAKRKRALK f& 
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-ASCIZ 
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ASCIZ 


EMS1 
EmsO: 
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ura wO--t WOQdONOWOO 
act Hay 8 BeZ2He 
2442 523 SaSSSS 

SSIS Vey eae 
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242648 S48 & 3 
MoSeny S28h 
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33h 047836 O40S20 000123 
OY7S42 051104 358 nttia DH3: -ASCIZ /DRIVE REG ADR DATA’ 
Be Gres Rone Gisies Gezits 
338 7564 101 101 
9338 79 OY iss DH4 : -ASCIZ /ORIVE REG ADR GOO BAD/ 
i i 
3 104 0 
ni firels Bane Risks Hele 
ais rest ORY 
cd 4 O44 042101 ODHeé: -ASCIZ /$RPADR/ 
sue Bae 000122 
$348 047636 1104 22 O14: -ASCII /ORV RPCS! RPCS@ RPOSI RPERL ¥ 
$351 A o's re 
se Bao 
9354 77 ete -ASCIZ /RPER2 RPERS RPECIL RPECe/<CR><LF> 
panies 
se Hie Boeke 
O OHI1S: -ASCIIT /RPWC RPBA RPDA RPAS RPLA / 
bigs 
40 
14 
peooe -ASCIZ /RPDB RPMR RPOT “<C> <LF> 
OSO0lee 
000 
937 1 069 16 OHIE: -ASCIZ /RPSN RPOF RPCA RPCC STATUS’<CR><LF> 
$374 047520 
$375 OS00S4 106 051040 
$376 OS0062e 041520 020040 
$377 050070 051040 020103 
$378 050076 O20040 040524 
$379 OS0104 OS5e52e4 000012 
a even 
9382 . ’ ‘ 
g3eq OSO11l2 001244 900000 OT1: -WORD ATTN,O 
$385 O5011— O01e42 033164 033166 OTe: -WORD ORIVE,RPERRS,RPERRS+2,RPERRS+4,RPERRS+6,ATTN,O 
$386 O501e4% 033170 033172 001244 
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i oS0132 oo00c0 
134 124 O4O432 O40434 OT3: . WORD DRIVE,RO.ADR,RD.WRO,O 
83 gsciay ones 
i446 oOole4e O6S2e O406SO ODT: . WORD ORIVE,WRT.AD,WRT.WO,8O.WRO,O 
3332 gsnivy o1eve posse 
o3ee oS0:iS6 001170 900000 OTé: . WORD SRPADR,O 
$365 Badt Oopesd Bobe74 Se DT14: . WORD SRPCS1, SRPCS2, SRPOS1, SRPER1, SRPER2, SRPERS, SRPEC1, SRPEC2.0 
se Eablet 
9401 0002 e OTIS: . WORD SRPWC , SRPBA, SRPDA, SRPAS, SRPLA, SRPOB, SRPMR, SRPOT,O 
eee ee 
303 Oste Booee2 000000 
306 petece ones poneee B00 70 DT16b: . WORD SRPSN, SRPOF , SRPCA, SRPCC, STATUS,O 
34 LIN@C: .ASCIZ /PRESENT ORDER = / 
405 6504 
LINeP: .ASCIZ 7 PREVIOUS ORDER = 7 
LINeS: .ASCIZ a@* ERROR AT BAD TRACK/SECTORA@ 


WOOO NOU £ Wl O 


ner 


gree 
sas 


perseeesees 


LINM3: .ASCIZ /ERROR AT C/ 


2 
a 


Ts; A Fie id 
LINN3: .ASCI /PRESENT ADDR = C/ 





S: -ASCIZ 7 S/ 
st Sto LINP3: .ASCIZ 7 PREV ADOR = C/ 


20 
uss 
S4e 
9423 
9424 
94eS 050 
$5 
342 
9428 O5041le 3105 0440 
3450 1 0075 103 ‘ 
34 1 101 sg LINS3: .ASCIZ /START CYL = / 
332 ae 114 s 
$433 O5044 O40 O42440 O42116 LINEN3: .ASCIZ 7 END CYL = / 
pat a4 oe 046131 036440 
336 1501 OS2S24 LINA3: .ASCIZ 7 ACTUAL CYL = “ 
94 Peres 6101 B4194 046131 
9438 Bend 36440 sage 
9439 O0S00 O2004 1124 020113 LINT3: .ASCIZ 7 TRK = / 
9440 050506 02007 000 
9441 OF0S11 O40 OSO0lee O40SO3 LINCA3: .ASCIZ ~% RPCA = / 
S442 OSOSiE O36440 000040 


on 
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Sree et Fe ere 79 10: Se 301 Oee hestacrs : 
q443 2 036440 LINDA3: .ASCIZ /RPDA = / 


036440 LINB3: .ASCIZ /RPBA = / 
041527 LINW3: .ASCIZ / RPWC = / 
penis? LINST3: .ASCIZ /START TRK = / 


RES 


peelcs LINSS3: .ASCIZ /START SEC = / 
ai 


Bat 934108 LINM4: .ASCIZ /BUFFER ADOR = / 


SaRRDORSE eaE 


1 OSSi11 LINS4¥: .ASCIZ 7 SIZE = / 





34s9 

9460 3 LINX4: .ASCIZ 7 ACTUAL NMBR WROS XFROD = / 
9461 114 ras 

Fa ar siss 

9465 1 O LINOS: .ASCIZ /GOOD DATA = 

a466 io1 30 

9468 O41040 O42101 LINBS: .ASCIZ / BAD DATA = ” 
Bg aay Sy 

9471 051 O4¥1SOS LINPS: .ASCIZ 7 SECT POS = / 

Te ae a 

9474 1 e3¢4 LINSS: .ASCIZ /HEADER FROM ERROR SECTOR = / 
9475S pegs ll 17 

9476 04 1 117 

p nih 050764 Baht 4 

aad 555 i o30e05 LINEPS: .ASCIZ /RPEC1 = / 

ray | if 3 031103 LINEOS: .ASCIZ / RPECe = - 

9483 2es2 1 1117 LINBG: .ASCIZ /SECTOR IS ECC CORRECTASLE - 
ee Bue fe ti 

Be at bide 

94868 Be 1 l 7524 LINC6: .ASCIZ ‘SECTOR READ CORRECTLY ~- 

Qe Eg 075 atte itt, 2101 
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9493 E1112 Owes bi5§ Babi 
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S496 DEi1S0 beiecs O“Ao8 
9497 133 + O415ié OS ith? LINUGB: .ASCIZ ‘UNCORRECTABLE AFTER “ 
3492 DE1i90 o4eeS2 Ose103 O4110i 
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-ASCIZ 


1 


06 
O40S24 LIN7M: 
be1 182 


“ORDERS : 7 


-ASCIZ 


OS1S22 LIN70: 


ele 





sae 


‘“ “~ i. “~ 
> we 4 aw ‘“ 

a ae ~ «lS 
= ~~ 7 - Q 
a “~ i* a ge 
« ae oO ‘ a oO 
‘ % © ~ =) 2 

o w - ‘“ “~ " - 
“ z= 3 ~ «x u. ‘ - 
bea Q b- aw) w =x x 
a a] oie Wer Pe ee eg 
a a J x L' 4 a = 
‘ oO ge uw band 
0 > 3 5 Soren me Gee a 
=) ‘ a Ww Qa z a la ¢ a 

¥ ad = ~ = 4 2 = 4 a 

Ry Re patie Bet 28 ee Be 
a & ak # & = 5 a 3 
S no © o ee BR 
a2 288 & 8 ae 
= = 4 @ iw a a oO 
°o °o Ww w - =) (=) - Ww a 
ee = m4 x oO oO © a 
Qa am | - - ivy} 
‘ ‘ » “~ \ N N N 3 * ‘ \ \ 
™N N N N N N N - N N N N ™N 
~ - - ~~ L onl ~ _ L to] ~ _ | L on) - 
$8 €8 88 &€ $8 kee eS 
oe 8 On oe oe Foe Ue ee Ay Bie 
PB ogg 2g og é 
4 baa of i eT EY. “7 Ee BS 
z z _— = z z= z = z z 
ea = = = m4 ms 4 nm = 
| = wa al | a =) | =) oo ad) 
= «Tt r nT.™ 

SS SeSeAeAN 2 es : 


ap 00--0OM0r.0 O-OMmo- “uo 

FooorTtur-«F or oOo -Om 
a oo uw 
~ - 7 


~ 
2 MZ Hassess wuz 


0 
1 
1 
1 
OS 
ae 
104 
000 
1B 
111 
3440 
000 





7 
$513 
4 
2 
4 


2 
OS1 
es 
geass isle 


MaRnRRRRR RTT SPUN Ln eh ap nnn DREN N 


han & 
an 


pecs 


uw 
~ 


é 


RARRAAARRARARRRAR 


Oh bs bh bo hh bh de 


atytutatatatatatatattal 
BIdIevZIn-3 


BucRneabe 


PERRREEP PS RER 
REBSESRRIEES 
BRRRR 


TRON 


3603 


vo 
— 
“3 


eck IResSRR 


‘I 
& 


ise 
2 ¢ 


if 

£ 
of 
o~ 
=U 


ce 
a 


‘ 


SERRE 


TINWOMERLOOW 


_ 
~~ 


Oo 

wi 
RSE Sere 
REBR ESE IES 
—— IO Oe 


== O-eS8er 


QO 
unun 
tu 


MACY11 30(104%6) 1S-O0EC-77 ii:03 PAGE 177 
ERROR MESSAGES 


Biieoe 
Bill? 
Be 

19} 
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4 
0S210 


¥ 
fom hot 
WMUWOoO 


ROBSON 


O4eSe2 
C4eSCe 


LINI1OB: 


LINIOC: 


LINIOH: 


LINI1H: 


Pp 
tiNepo: ; 


TELETYPE MESSAGES 


. SBTTL 


UNTMSG: 
UNTOFF: 


UNTON: 


UNTNOT: 


UNTASN: 


-ASCIZ 


-ASCII 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIZ 


-ASCIT 


ASCIZ 


SASCIZ 
.ASCIZ 
.ASCIZ 


-ASCIZ 


/ IN DATA FIELD OF ERROR SECTOR/<CR><LF> 


“ERROR WAS NOT IN THE DATA READ - /<CR><LF> 


ZECC CORRECTION CAN’T BE PERFORMED’ 


7ECC CORRECTION RESULTS/<CR><LF> 
7AOOR BAD CORRECTED /<CR><LF> 


“CONTENTS OF ERROR SECTOR (REPORTED ABOVE) “<CR><LF> 


“ADDR DATA’<CR><LF> 
e 
Ye 
o 7 


/ORIVE/ 
7 OFFLINE’ 


/ ONLINE’ 
/ NOT BEING TESTED~ 


/ ALREADY BEING TESTED- 


114 
Beret Pecoet-7P ibsse | CY") MPEP He ABSRaGEG” 14:09 PACE 178 Seo 0177 


czRJ RPOY 
CSRI 

961 244 0471 107 O04 

Sis geass BNE genie? 

31 535 040 i 124 NOTRE: .ASCIZ @ NOT AN RPOY/S/6ba 

a A 

618 1 NOTPRS: .ASCIZ / NOT PRESENT 

361 rt ees. 

9% & 20124 NOTAVL: .ASCIZ / NOT AVAILABLE’ 

2 é 
; is NOTSAF: .ASCIZ / E/ 


is 


SYSTAT: .ASCIZ /UNIT STATUS: /<CR><LF><LF> 


a at ee 
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uELLL 
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gg 
Fatt 


3 RPOS: .ASC /RPOG/ 
0 8 STATHD: .ASC /DRIVE PERFORMANCE SUMMARY /<CR><LF> 
1 1 Ob 
2036 6 G3 
3633 i4 1 
9635 36 1 . /DRY PAS K WROS XFER wWRDS READ - 
ex 38 i ow : 3 ASCII “5 S ORDERS SEEKS DS XFE S READ 
Se 0123 
338 11 1354 
aS te 
3E4 10 104% 
3645 6 7533 1 4030 -ASCIZ /SOFT HARD SKI MISP OTHER’<CR><LF> 
Shs Ai 1 1 144 
gh45 1511 
2646 28 19 10 
an) 46 le 
aed Bo00i2 2516 OOSOIS PDONE: .ASCIZ /DONE’<CR><LF><LF> 
9650 74 OS24 DROPNG: .ASCIZ <07>/?FATAL OR EXCESSIVE ERRORS- 
9651 O20i14 Osti1? . ite 
3ee5 2526 Baeaq be1ise 
acts Osseie Beiii 123 
3E55 052616 10S 0108 943117 ENDPAS: .ASCIZ /END OF PASS~ 
9656 05 0 1 O1 123 
9657 vecese 15 71 p2010% ENDTST: .ASCIZ <CR><LF>/’END OF TEST’ 
SE23 DSseue Bootsy CeON? 051505 
3660 sees ASSG: .A <CR><LF> /DRIV A / 
oreo 020108 os Ou 053131 DEASSG SCIZ «<CR><LF> “DRIVE DEASSIGNED 
3666 Deebey “363 047107 042105 
S664 O0Seb7 O1S OeS0i2 OGeS0S2 ORNUM: .ASCIZ <CR>‘LF>/e#eeenesee ORIVE 8 
9665 052700 oes0S2e Oes0Se des0se 
SE6E 052706 O200Se 051104 OF3i1i 





CZRIDCO, RPOY/S/6 MLT-DR LGC MACYI1 30(104%6) 15-DEC-77 11:03 PAGE 179 
ESR Tbe Pat Pe eore 7) ib se Hie Tepe MESSAGES SEG 0178 
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368 ose ASGND: .ASCIZ / STARTED/<CR><LF> 
3670 949 NEDCLK: .ASCIZ <CR><LF>/? L’ OR "P* CLOCK REQUIRED ON SYSTEM/<CR) «LF 
3678 E 
967 

9674 1 

3675 4 3 
= 

3 PERIOD: ASC a, 

36 QUES: ‘Asc ay, 

Baest INVLD: .ASCI ZINVALID COMMAND 7<CR><LF> 

38 “ 
3684 pees ENTCOM: .ASCIZ <CR><LF>/ENTER COMMANDS: /<CR><LF> 

Seg? : 4 ee 
88 3060 710 959086 ENTORV: .ASCIZ /ENTER I.D. FOR ORV a 
ey Geese Bi Ris Beats 

3636 ie ois ae S18 ENTLMT: .ASCIZ <CR><LF>/ENTER ADDRESS LIMITS FOR DRV #/ 
3694 O53 1S2 0 

9695 1 11 ryt 123 
3a? Oesiae Be0i omy 

3598 Ise 1 122 ENTADR: .ASCIZ @ENTER BAD TRK/SEC ADRS FOR DRY wa 
$703 Geslge Ge7e13 Cheesy 60103 
9708 176 eget Ba 053122 
9704 7 COLON: .ASCI 437 
3708 : F os2101 BATETS: “AekES <@R><LFD-DATE: / 
970 pees OS0117 OS1105 IDIS: .ASCIZ <CR><LF>/OPERATOR I.D.: / 
27 3230 01 051117 4440 
3710 erie 122 WEDLIN: .ASCIZ <CRD<ILF><LF>/ORV ORV 1.0. /<CR><LF? 
3718 Au +104 ois 

3714 Pe peg 047117 OO6SOS NONE: .ASCIZ “NONE/<CR><LF> 

971 76 7111 04 BADENT: .ASCIZ /? INVALID ENTRY/<CR><LF> 
712 Gessot Gabi Beolak BaPibs 

9719 3320 4S2 2 ; Ee BUSY: .ASCIZ /SYSTEM BUSY.../“<CR><LF> 

arg besase oaiBse perese BosTsi 

72i 053334 O270S— 05015 000 

$722 05334) 01S OSOOl2 O47S22 INTDON: .ASCII <CR><LF»/PROGRAM INITIALIZATION COMPLETE: 
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<CR><LF>/TYPE A *CONTROL C’ 


;PARAMETER ENTRY TABLE 


pare’ OTN TRVL 


PARLST: 


ASKPAR: 


SLASH: 


PARI: 
PARe: 


PAR3: 
PARY: 
PARS: 


PARS: 
PARIO: 
PARLI: 


-ASCIZ 


-ASCIZ 
ASELE 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 
-ASCIZ 


PAR §,-1 


a/a 
/MAXOL 7 
ZINTRVLZ 
/CMPLMT / 
/MAXCYL/ 
/MINCYL/ 
/MAXTRK/ 
/MINTRK / 
/MAXSEC/ 
/MINSEC/ 
/FORMAT 7 
/WCSEL/ 


K14 


PASCNT 
1, CMPL 


MT 


TO ENTER COMMANDS ~‘CR><LF><LF> 


; TABLE TERMINATOR 
ZENTER PARAMETERS: 


SES 01795 


Li 
ESRIDE e el Te Sort-77 10 se sag ELEY TYPE nes eS” oe Te ga SEG 0180 
O0S2101 O47S11 PARI4: .ASCIZ /RATIO/ : 


OS2i2S O41S17 PARIS: .ASCIZ /AUTOCK/ 


Bvises Oselie PARIS: :ASCIZ /PRSENT/ 


oSss 
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hFRRaEE 
at 
VESPER 





3786 OS2117 OSi1120 PAR20: .ASCIZ /NOTPRTV 
ee 
27 . EVEN 
7 
3731 ;PARAMETER TABLE POINTERS FOR ADDRESS LIMITS 
979 3776 TABLE: .WORD TABL TER TABLE F 
9794 3760 eather ° : TER TABL FOR BRIVE ¢ 
3736 764 5128 Hers H TER T FoR Bat § 
97 4226 : TER T FOR ORIVE 4 
97 3275 4274 : TER T FOR i 5 
97 77 4342 Vater ; TER TABLE FOR & 
3800 4416 : TER TABLE FOR DRIVE 7 
3608 ;PARAMETER TABLE FOR ADDRESS LIMITS 
9804 3776 053635 2 TABLEO: .WORD  PARS, » MINCYL 0 
360s Deseze 000 bad PAR 0, FAK EYE ESDRIVE 5 
aor Geiseh Gexew Gooose Diets ties ase: Ace 
3808 71 i . PAR “21: sRINGEC® 
3809 OSuo34 042006 -WORD PARS,21.;MAXSEC+DRIVEO,O 
961 
$12 2 TABLE1: .WORD PARS,O,MINCYL+ 
361 OewBes 5303 “HORB Bawa, nates 
9614 054 3653 2 2310 7 WOt PAR7; 16. ,MINTRK+DORIVE1 
921 DB4066 a4 2306 "WORD PARE, * MAXTRK+ 1 
9816 O05 367 g3i4 “WORD +31: SHIN *MINSEC+DRIVE1 
tt 054108 000025 2312 “WORD Pane’ St * MAXSEC+ 1,0 
981 
41 TABLEe: . one +B ofan + 
geet SELLS Sp TOS: BSF RE 
3655 4156 44 spt ; P pan; 1. HAXTRK RK SPR EVES 
9624 4142 05367 g WORD PARS. ef. HINSESS Ive vES 
96 Oe4i 5368 25 O42616 ‘WORD PARB’21.'MAXSEC+DRIVE2,0 
9828 054160 35 114% TABLE3: .WOR Pars: B:RANEYE SDR 
9839 054166 3626 3it3 “WOR Pit 
9830 Oey. 3683 g 120 “WOR PAR?’ 18-5 M 
9631 4 08 a4 116 “WOR pane, 18. CHINTRKS ERI VE 
S632 05421 3671 o0000 43124 "WORD PARY * MINSEC+DRIV: 
9633 OS421— 053662 O00025 O431e2 “WORD PARE: st: *MAXSEC+DRIVE3,0 
9634 O&4224 600 
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ru 

ae 
sees 
marr 





RRRRRRF 
Site 
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CYLDER: .WORD ;HEADER BUFFER FOR *REACHD’ ROUTINE 
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2 
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° 


ENDPGM = ° ;LAST LOCATION OF PROG + @ 
5 RESP REESE ESSER RER PE RLEA ERLE SERRE ERE ESRREEE A SELES EERE EEE 
; ROUT INE TO GET THE DATE AND THE OPERATOR FROM THE OPERATOR 

‘wpe: sk PC, OPRDAT 


SEREEELE 
wre 

g 

3 

¢ 


wae AZ 


3681 NOTE: THIS ROUTINE IS ENTERED ONLY AT INITIAL START 
9685 104401 OS4E00 OPROAT: TY JENTOAT ; "ENTER DATE’ 
geae feiirs yee ~*~ a (SP)+, RS io ENTRY ADDRESS INTO RS 
387 Oewsce 118637 boise) hove +: BATE i : STORE THE bat 
B3 Osueie 11837 01525 HOVE —« CREDS’DATESS §«=— STORE. THE PATE 
3esc Beueie 115239 Bo eed MOV [R 3" Bat +4 eT ORE THE Bate 


N14 
EERE eT Fetore AP bees MACY SOEUR He ABsSaceg” “AO? PAGE 188 seo 0162 





ENTDAT: .ASCIZ <CR><LF>/ENTER DATE: 7 


il B01 (RS)+,DAT ; 

11 D1 MO (RS)4, ; 

ie (RS)+ + 5 

T ,ENTIO ; 

ROLIN ; 

ue (R533) 

1 a) (RS): Ri rs 

1 (RS)+,OPERID¢2 ; 

1 (RS)¢, RID+ : 

1 (RS)+¢, RIO44® ; 

MO (RS)+,OPERID¢S ; 

RTS PC ; 
9905 

9906 seoe 

9907 


ENTIO: .ASCIZ /ENTER OPERATOR 1.D.: / 





3931 
991 
318 - EVEN 
aaid .SBTTL ROUTINE TO SIZE MEMORY 
gai$ s [90 apaigaptimagpamaniss nah yes ihe raanoaehpay 
a3i8 :# PC, $SIZE 

i Ssistao WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION 

SSIZE: MOV SME AD RO ON on THe TACK 

MOV ACK 
PRESENT VECTOR PS & PC 


senn8? na een 


;;SET THE ER ERRVEC ve te THE onescit BE 


aa 


;SAVE THE STACK POINTER 


Save TH Ave THE PS PSW Onn STBERRVEC#2 


oooo04 ney s,aitmevec . 1 coh Ri 8 
ST THIS ss 


= 


annotate 
Soret ENS 


33 
a 
BERRRRRRRRRRS FATT 
aan 
pococo;, 
PRORRAS 
| 
332 


12701 MOV staah + pG 
oh! it Tet (RL) 15 eee TO Rex RESS 
a: Se ide isa 
; R 8h {JRESTORE” THE STACK 
(SP) +, Q¥ERRVEC+2 ;;REST ERROR VECTOR 
7 (SP)+' JSERRVEC 
bea 42 MOV R1,$L5TAD LOST AD ADORESS 
1 MOV ( P)+,R1 ad 
0547 00 nov {SP )+,RO ; ; RESTORE RO 
SLSTAD: .WORD oO ;;CONTAINS THE LAST ADDRESS 


-SBTTL BUSADR - GET BUS ADDRESS AND VECTOR ADDRESS FOR RH11 
; THIS ROUTINE IS USED TO INSURE THE BUS ADDRESS 


sit] 
ge 
p= 454 
BS 


ESRIDE Pil iseoee-7e ubsse «= YEE SQ i200 EPE5s7Taohke cere ADDRESS FOR RHI1 SEO 0162 


jC° THE RHi1 15 SETUP FOR PROPER ADDRESS. 
‘ag rout RED HE ADDRESS FROM THE TTY iF 
NO tah HIS ROUTINE DESTROYS RO-R4 


*) 


227 en PC ,BUSADR 


Hivee: WORD $96 00 





99590 
1 
9953 
gece 
Osu744 1777 
4 BOUND: .WORD O 
39960 4 p05? 001260 BUSADR: TST HGAOR ; INPUT FROM iTY REQUESTED? 
996 1 4 14 BEQ % -BRANCH 
9962 4 9050 001260 CLR CHGADR iTeSeChEMR, TH REQUEST FLAG 
9963 4764 0 170 1S: MOV 8 . 
9964 4 1054 1 176 TYPE MRPCS1 ; - 
3965 nike O1 mov trRO)+,-(SP) iP NT RPCS1 ADDRESS 
3367 208 1 i os2iss Typ EA , LINSP ; re enrey 
a 1 MOV (SP)+,R1 GORE CIl TEXT 
gq 383 501 4 0S4744 OS47S50 MOV APA BOUND : _poore s 21 ax 
3341 50 7 O5S5220 JSR RS, AQ, Bono CHECK THE BOMBER 
os 2 3$ ica IAGE RE ONLY ENTERED 
9973 ' Barts 7§ H RI ONLY sage 
9975 cose i TED WITH @ CARRIAGE RETURN 
35 4764 I : TERMINAT He HA ”,” 
978 110 4 : Tene Nar W TH he 
3978 177776 a8: MOV R2,-2(RO) 
9979 ios 1 055207 38: TYPE HVEC 
3980 2046 MOV tRO)+, -(SP) iP RESENT RH11 VECTOR ADDRESS ON THE STACK 
998 109402 TYPOC iT 
104401 oS21SS TYPE ,LINSP fe 
1 ROLIN HE ENTRY 
ac34 12601 MOV (SP)+,R1 iss TEX RODRESS 
3985 37 OS4746 054750 MOV HIVEC? BOUND i$ ue RUBE 
Ss 05Se20 JSR RS, CK! NUM 
9987 055074 114 > ehate RETURN ONLY ENTERED 
9988 114 ? RI y EN TERED 
3989 1 2 3$ ; LE NPU 
993c 1 5110 4§ RAINAT WITH a CARRIAGE RETURN 
9991 1 Os504e 35 RMINATED WITH A 
3336 3106 05511 45 TERNINAT WITH A.” 
S11 106260 177776 4$: MOV R2,-2(RO) ;$A 
S354 S114 0137 i 7$: MOV age Eve s Sav HE ERROR VECTOR 
9995 51 127 5iS4 oocoo4 MOV “9S VEC :SETUP F 
$996 0551 124636 TST :CHECK FOR RHil 
$997 e! 10137 OG0004 MoV a TEPRYEC ; st RROR R VECTOR 
3238 1 1 001170 MOV 8$R 0 F : Ss NEW PARAMETERS 
$142 612701 633332 MOV #RPADR KR jFIRST SS OF WHERE TO PuT THEM 
10000 055146 p1edel MOV (RO)+, (R1)4 ;BUS ADORESS 
10001 OS5iSO Olze0ei MOV (ROI+; (R14 s VECTOR ADDRESS 
i c ws a . 
code of6152 o0d0e07 RTS RETURN 


3Be-P1 tseoet-79 1bssa |" Y** *BUSZoR’ - Uli ADDRESS FOR RHI} Seo cies 


10003 055154 010137 000004 83: MOV R1 ERRVEC Crp O FTE CToR 

ie SE bette om 

} 164 737 Ocodse TST ase T A MONITOR? 

i ea 1g3s G i$ irs There 6 ADORESS 
Size 137 005344 JMP SGET42 :GO TO END oF PROGRAM 
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055226 005004 CLR !RETURN POIN 
055230 3 CLR R ;START NUMBER AT ZERO 
39 0275€0 See RE. CK. CHR FRUCRE OREO EHARACTER 
2330 23 i's : te Eber EMSRAC TER 
05524 peg es ; CARRIAGE RETURN 
ee BiG 8-2 
004 ooo004 1$ Boo #4, RS SO NCREMENT RETURN PAST “CR” AND “PERIOD” ONLY RETURNS 
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